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EDITORIAL 


THIS MONTH'S MAGAZINE 

If you are interested in programming, then you should find the Utility Editor in 
this issue of considerable help and interest. The program includes facilities to 
search for, or to search for and replace, any string of characters in your own 
program, including Basic keywords, very useful, for example, if you want to change 

the name of a variable throughout your program, and it will also list out all your 
functions and procedures and tell you where they are. 

And talking of functions and procedures, if these are something that you 
still not quite sure about, the article by Rob Pickering and Philip Le Grand will 
really help you on your way. The article also tells you how you can 
library of your own most useful routines. 

Your 


build 


library routine could well be the procedure described in another of 

such 


this month's articles which allows you to save to cassette any screen display 

those that you can produce using ASTAAD, our computer aided design program that 

The article also tells you how to re-display any 


we published in issue No.3. 


image that you have previously saved to cassette. 


article on saving screens, you will see that we are running a 
competition with a prize for the best screen display sent to us. The prize is being 
donated by SIR Computers of Cardiff, and will be one of their new add-ons for the 

Electron. 


read the 


If you 


This product, a ROM expansion board, is now available, and you 

all about it in this month's review. 

We have also just heard 

available, an 


can 


that the second add-on from SIR Computers is now 
interface for printer and joysticks, which we shall also be reviewing. 


There are many more articles, programs and reviews, including three more 
excellent games for your enjoyment, making this, without doubt 
issues of ELBUG yet. 

POSTBAG 


one of the best 


I said last month how much we enjoy hearing from you, particularly if you have 

of articles or programs you would like to see appearing in the magazine. 

one 


any 

You also continue to be very complimentary about the magazine and this includes 
reader who was so pleased that he asked if we could produce the magazine every week 
and not just every month! Phew! 

ADVERTISING SUPPLEMENT 


As you may know the advertising supplement is sent out to readers of both ELBUG 
and BEEBUG, our highly successful magazine for users of the BBC micro. All the time, 
we are taking steps to make this more useful and interesting to ELBUG 
including our own Software Club offers. Do remember that many of our advertisers, 

for 


and this includes dealers listed in our 


Discounts pages. 


Electron users and will help ELBUG members. 


Mike Wi11iams 


CE BOARD NOTICE BOARD NOTICE BOARD NOTICE 




to requests from ELBUG members, we have decided to make available 
each month, a cassette containing all the programs from that month's magazine 
will be giving all the details of this, and of cassettes for all back copies, in the 
next issue of ELBUG. 


In 


We 


We have now installed a telephone line to deal with any enquiries 
relating to magazine subscriptions, orders for backcopies, software etc 
be possible to answer technical queries over the telephone. Tne number to ring is St 
Albans 60263 and the line will be manned from 1 pm to 4pm each weekday. 


you may have 
It will not 


Volume-1 Issue-5 


April 1984 


ELBUG 










3 


NERAL CONTENTS 


Page Contents 

2 Editorial 

4 Invasion of The Aliens 
6 Electron Graphics ( p art 5) 

9 Postbag 

i 0 Saving and Loading Screens 
12 New Electron Add-on Reviewed 

14 Using Procedures and Functions 

1 7 Fabric Patterns 
18 Dominoes 
22 Utility Editor 
26 Latest Games Reviewed 

28 Using BBC Micro Programs on an Electron (Part 2) 
30 Elevator Mania 


PROGRAMS 


HINTS & TIPS 


Page Contents 

Invasion of The Aliens (game) 
Electron Graphics Examples 
Saving and Loading Screen Displays 

Fabric Patterns 
Dominoes (game) 

Utility Editor 
Elevator Mania (game) 


Page Contents 

1 1 Easier Entry of Lower Case Variable Names 
1 1 Random Events 

I 1 Two Key Entry for ENDPROC 

II Easier Viewing of Text 

13 Transparent Key Definitions 
29 Time Delay 

34 Freezing a Program in Basic 


4 


6 


10 


1 7 


18 


24 


30 


ELBUG 


April 1984 


Volume-1 Issue-5 




4 
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INVASION OF THE ALIENS 


bv Alan Webster 

w 


As you line up your sight, the alien 

a temporary psychokinetic force 

field which hides it from view, though 

creating any protection from 


space invader type game 


This is a 


for one player in which the object is 
to destroy all of the descending aliens 
(isn't it always?), 
with one alien attempting to 

the surface of the planet 


4 


The game starts 


your missile. 




land' on 


If you 
then you move 


You score 1 point for every alien 

hit on the first wave (sheets 1 to 6) 
two points on the second 

on. You are also limited to the number 

of missiles you can fire and this is 
displayed at the bottom centre of the 
screen and is given in line 200. It 

set to 25 in the program listed, but of 
course you can change this to make the 

game easier or harder. 


succeed in zapping it, 


sheet with two aliens. 


onto the next 


/ 


and so 


This goes on until you have beaten off 
the sheet with six of the creatures 
whereupon the game restarts with just 
one alien, but 


f 


I 


« 


You have three lives to play with 
and you 

lands. After losing all of your lives 
your score is displayed and the highest 
score shown. 


one every time an alien 


10 REM PROGRAM INVASION 

20 REM AUTHOR Alan R. Webster 

30 REM VERSION E0.1 

40 REM ELBUG 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


APRIL 1984 


Your weapon is aimed by moving a 
cross-sight until it is centred on an 
invader. The keys to use 
follows: 


60: 


100 ON ERROR GOTO 1710 
110 MODES 
120 EK%=0:FR%=0 
130 VDU19,1,11,0,0,0 
140 PROCchr 
150 HI%=0:DIM Z(5,2) 
160 SC%=0:LV%=3:R%=1 0 


Z Left 


Up 






* 


/ 


X Right 


Down 


Space Bar to Fire 


170 FORTW%=0 TO 5 


Vi 


r 


■ 


- 




10,235,1 


180 SOUND! 
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240 I%«1 


250 PROCstars(1 00) 


k 


1 % 


b 


' 


260 PROCrndm 




j 


270 IFI%=1I%=2ELSEI%=1 




- 




< -v\» W/ 


280 PROCalmove 


s* 


(RND(5)+10) ,7,1 


290 SOUND0 


f 


300 IFLV%<1 PROCendgame:GOTO \ 60 


310 F0RLP%=1TOR%+(R%ANDFR%=0) 




320 PROCplmove 


330 C0L0UR2 
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340 PRINTTAB (2 , 31 ) ;SC%;TAB (1 7 , 31 ) ;LV% 


1270 IF ABS(GF%)=2 PX=PX+SGN(GF%):GF% 


0 


350 C0L0UR3 
360 PROCfire 
370 NEXTLP% 

380 IFEK%=TW%+1 EK%=0: NEXTOv'% 

390 IF TO%=6 R%=R%-2:GOTOl70 ELSE270 

400 END 

410: 


1280 IFINKEY-105ANDPY<27PY=PY+1 
1290 IFINKEY-7 3ANDPY>0PY=PY-1 
1300 PRINTTAB(OX,OY) 

TAB(PX,PY)CHR$224 
1310 ENDPROC 

1320: 

1330 DEFPROCaImove 

1340 FORA%-0TOTW% 

1350 IFZ(A%,2)=0 GOTO 1440 

1360 PRINTTAB(Z(A%,0),Z(A%,1));SPC1 
1370 Z(A%,1)=Z(A%,1)+1:Z(A%,0)-Z(A%,0) 

+(RND(3)-2) 

1380 G%=Z(A%,0) 

1390 IFG%<1Z(A%,0)=1 

1400 IFG%>18Z(A%,0)=18 

1410 IFZ(A%,1)=29 AND G%=30RGI=90RG%=1 

6 Z(A%,0)=Z(A%,0)+1 

1420 COLOUR1:PRINTTAB(Z(A%,0),Z(A%,1)) 
CHR$(224+1%) 

1430 IFZ(A%,1)=29 Z(A%,2)=0:LV%=LV%-1: 
EK%=EK%+1:FORSD%=lT02:SOUND1,-l5,5,4:SO 
UND1,-15,1,4:NEXT 
1440 NEXT 
1450 ENDPROC 
1460: 

1470 DEFPROCendgame 
1480 A%~INKEY(313) 

1 490 CLS 

1500 PRINTTAB(3,15);"YOUR SCORE:";SC% 
1510 IFSC%>HI%HI%=SC% 

1520 PRINTTAB(3,17);"HI SCORE s M ?HI% 

1530 *FX15,0 

1540 COLOUR3:EK%=0 
1550 S=GET 

1560 ENDPROC 


:COLOUR3:PRINT 


1000 DEFPROCscene 
1010 VDU23,1,0;0;0;0 
1020 VDU23,255,255, 


255,255,255,255 


,255,255 


1030 FORA%-1T018:PRINTTAB(A%,30);CHR$2 
55:NEXT 

1040 VDU23,254,8,8,28,28,62,62,127, II27 

1050 PRINTTAB(9,29);CHR$254 

1060 ENDPROC 

1070: 

1080 DEFPROCstars(A%) 

1090 FORAl%=1TOA%:GCOL0,RND{3) 

1100 PLOT69,RND(1280)-1,RND{900)+123 

1110 NEXT:ENDPROC 


1570: 

1580 DEFPROCfire 
1590 FR%=0 

1600 IFINKEY-99ANDB%>0FR%-608 

1610 IFFR%=0 ENDPROC 

1620 FX=64*PX+32:FY=1024-(32*PY)-16 

1630 FRl%-96 

1640 MOVEFR%,FR1 %:DRAWFX,FY:QCOL0,0 
1 650 FORY%=0TOTYJ%: IFPX=Z (Y%,0)ANDPY=Z ( 

Y%,1)ANDZ(Y%,2)<>0 Z(Y%,2)=0:SC%=SC%+11 
-R%:EK%=EK%+1:SOUND1,-15,100,1:SOUND!,- 
14,2,1:SOUND1,-l5,200,1 ELSE SOUND!,-10 

,235,1 


1120: 

1130 DEFPROCchr 

1140 VDU23,224,24,24,36,231,231,36,24, 


24 


1150 VDU23,225,102,153,60,90,126,60,66 


,129 


1160 VDU23,226,129,90,60,90,126,60,66, 


36 


1170 ENDPROC 
1180: 

1190 DEFPROCrndm 

1200 FORA%=0TOTW%: Z (A%,0)=RND(18):Z(A% 
,1)=0:Z(A%,2)=1:NEXT 
1210 ENDPROC 
1220 : 

1230 DEFPROCplmove 


1660 NEXT 


1670 MOVEFR%,FRl%:DRAWFX,FY:GCOL0,3 
1680 B%=B%-1:PRINTTAB(9,31);B%;CHR$32; 
1690 ENDPROC 
1 700: 

1710 ON ERROR OFF 


1720 MODE6 


1240 OX=PX:OY=PY 


1250 IFINKEY-98ANDPX>1 GF% : =GF%-1 
1260 IFINKEY-67ANDPX<18GF%=GF%+1 


1730 IF ERR=17 END 

1740 REPORT:PRINT" at line 

1750 END 


If 


; ERL 
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ELECTRON GRAPHICS (Part 5) 


bv Mike Williams 


We continue our introductory series on Electron Graphics by looking 
this month at the use of the PLOT command, the most comprehensive of 
the various graphics commands available on the Electron. 


(640, 800) and (1080, 100) 

notice 


Last month we looked at the MOVE and 


( 200 , 100 ), 

as the three vertices. You will 


DRW commands, and their use in drawing 
a variety of open geometrical shapes 
(triangle, rectangle, circle, polygon). 
In most of these examples we wrote 
short and flexible procedures for the 

hand, something we shall 


that the two sloping sides of the 
triangle have a 
This 


stepped appearance. 


on the 


appearance 
resolution being used (low resolution 
in Mode 2). If you try the same program 
using Mode 1 (medium resolution) and 
Mode 0 (high resolution) you 

able to 


task 

continue to do this month. 


in 


will be 


see the effect that this has. 


THE PLOT COMMAND 

The PLOT command, available in BBC 

is a general graphics command 
having many different uses. The format 
of the command is always the same: 

PLOT k, x, y 

The value of k, which can nominally be 
any value in the range 0 to 
determines the exact function carried 


You may also wish to refer back to last 
month's article for more information on 
resolution. 


A filled triangl 

that is irrmediately available to us, 
and so any other filled shape must 

usually be constructed from triangles. 
Consider, for example the task 
drawing a filled rectangle. 


is the only shape 


of 


out by the PLOT command. The values of 

to a point on the 
of the 

last month (1280 points 


x and 


graphics area 
explained 

horizontally, 1024 points vertically). 


Suppose we want a green rectangle, 
400 units high by 600 long and with the 
bottom left hand corner in 
(200, 100). It is worth just trying to 

work out the sequence of commands for 
yourself, and to see how few you really 
do need. A rectangle is, of course, 
made up from two triangles and the 
shortest way of achieving this is as 
follows: 


position 


FILLING TRIANGLES AND RECTANGLES 

The first, and one of the most 
useful applications of the PLOT command 
is in producing filled shapes on the 
screen. The comnand: 

PLOT 85, X, Y 

will plot and fill a triangle on the 

using the drawing colour 
currently set by the GCOL command (or 
white by default). The three vertices 

(or corners) of the triangle are taken 
to be the last two points previously 

specified and the point x, y given in 
the PLOT comnand itself. For example 
try the following short program: 

100 MODE 2 
110 GCOL 0,3 
120 MOVE 200,100 
130 MOVE 640,800 
140 PLOT85,1080,100 
150 END 

The program is written in Mode 2 and 

selects yellow (colour 3) 
drawing colour. Using two MOVE commands 
and one PLOT 85 command, a yellow 
filled triangle is then drawn using 


100 MODE 2 
110 GCOL 0,1 

120 MOVE 200,100: MOVE 200,500 
130 PLOT 85,800,100:PLOT 85,800,500 

140 END 


Notice how, by moving from 
vertex to the next in the right order, 
we can draw our rectangle with just 
four commands. Basic always remembers 
the co-ordinates of the last two points 


one 


visited. 


We can rewrite this as 
which will display a 
size, and in any colour, 

the 


a procedure 

square of any 
anywhere on 
procedure, 

PROCfillsquare, is defined as follows: 


the 
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Simply executing the CLG command will 
then 'paint' the graphics window in the 
colour specified. The following short 

routine will draw the same yellow - 
coloured rectangle as before. 

100 MODE 2 

110 GCOL 0,129 

120 VDU 24,200;100;300;500; 

130 CLG 

140 END 


100 MODE 2 

110 ON ERROR GOTO 190 
120 REPEAT 

130 colour=RND(7):size=RND(l000) 

140 x=RND(1279): y=RND(1023) 

]50 PROCfillsquare(colour,size,x,y) 
160 UNTIL FALSE 
170 END 
180 : 

190 ON ERROR OFF:MODE 6 
200 REPORT:PRINT" at line 
210 : 

1000 DEF PROCfi11square(colour,size,x. 


ERL:END 


technique is worth knowing, as it 

* ^ 

it is 

as only rectangles (or 

drawn, and the 
must be wholly within the 

the VDU24 


This 

is quite short and quick 
more limited 
squares) may 
rectangle 
normal 


y) 


1010 GCOL0,colour 
1020 MOVE x,y: MOVE x,y+siz 
1030 PLOT 85,x+size,y 
1040 PLOT 85,x+size,y+si 
1050 ENDPROC 


be 


effect. You may also 


command has no 
need to cancel the VDU24 conroand after 


use with VDU26 to avoid any lasting and 
unwanted effects. 


By including the procedure in a loop 
as shown below, we can randomly display 


coloured squares on the screen. 


FILLED CIRCLES 

We will now look at how we 

the triangle 
generate filled circles. As we saw last 
month, a circle is just a polygon with 
large number of sides. We can readily 
amend our circle program from 
month to produce a filled circle, made 
up of many triangl 

the centre. 




facility 


fi11ing 


to 


a 


touching at 


all 


o, 




A 


100 MODE 2: GCOL 0,1 


110 VDU29,640;51 2; 

120 radius=200 
130 MOVE radius,0 

140 FOR angle=0 TO 2*PI STEP PI/16 
150 x=radius*COS(angle) 

160 y=radius*SIN(angle) 

170 MOVE 0,0:PLOT 85,x,y 
180 NEXT angle 
190 END 


10 REM Program FILLSQUARE2 

20 REM Version Bl.i 

30 REM Author Mike Williams 

40 REM BEEBUG April 1984 

50 REM Program subject to Copyright 

60 : 


Each time the program moves round 
the circumference from one point to the 

next, it fills in a triangle from those 
two points to the centre of the circle. 
The order of visiting the three points 

of the triangle is important in 

producing an efficient routine. This is 
again low resolution graphics (Mode 2) 

it is worth experimenting with 
medium and high resolution (Modes 1 and 

If you 

compare the program above with the one 
written last month for drawing 

outline circle you should 
similarities. 


We can use a similar procedure to draw 

rectangles, or any four sided filled 

more than 


shape, and indeed shapes of 


four sides. 


ALTERNATIVE TECHNIQUE 

There is a quite different technique 
that can be used to produce coloured 

rectangles. This uses the VDU24 command 
to define a graphics window on 
screen. The required colour is then set 

the background colour by using 
GCOL0,1 28-t-C where C is 
the range 


0) to see the effects produced. 


many 


the colour in 
0-15 (for Mode 2 at least). 


M 
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We can easily turn our filled circle 
routine into a procedure, either by 
following the pattern of last ninth's 
fast circle drawing f procedure, first 
setting up a table of sines and cosines 

subsequent circle 

drawing, or by using the basic but 
slower routine used above. 


This last program also shows very 
clearly that, just 
MOVE, 

being drawn goes off the visible screen 


with DRAW and 


i f the shape 


occurs 


speed up the 


to 


3D SH APES, 

The final program for this month 
shows how the three commands of MOVE, 


DRAW and PLOT can be combined together 
in a simple procedure that gives an 

appearance of depth to the 
display. Most of the work in this 

program is done by a procedure called 

PROCcube. The purpose of this procedure 
is to disp.ay a cube on the screen with 

a specified colour, size and position. 
This is really just an extension of our 


earlier filled square procedure 


A cube, as displayed on the 

of a square (just as before) 
together with two paralellograms 
adjacent 

adjacent to the right-hand edge of the 
square. The furthest visible corner of 
the cube is chosen to be 0.6 of the 

size of the cube in distance from these 
two edges. This is quite arbitrary, the 
value 

you want to achieve. This is not a true 

ive, as opposite 
parallel, not converging to a vanishing 
point, but at least it keeps the maths 

quite simple. 


consists 


one 


top edge and one 


to the 


This month, I have chosen to use the 

simpler method and the results 
shown in the program below which 

random size and 

randomly positioned on the 


displays circles of 


really depending on the effect 


colour, 


10 REM Program FILLCIRCLE3 

20 RUA Version El.l 09/03/84 

30 REM Author Mike Williams 

40 REM ELBUG April 1984 

50 REM Program subject to Copyright 

60 : 

100 MODE 2 

110 ON ERROR GOTO 190 
120 REPEAT 

130 colour=RND(7):radius=RND(600) 

140 x=RND(1279) :y-RND(1023) 

150 PROCfillcircle(colour,radius 
160 UNTIL FALSE 

170 END 
180 : 

190 ON ERROR OFF:MODE 6 
200 REPORT:PRINT" at line 
210 : 

1000 DEF PROCfillcircle(colour,radius 


y) 


V 


f r 


it * 


ERL:END 


x,y) 


1010 LOCAL angle,X,Y 

1020 VDU29,x;y;:GCOL 0,colour 
1030 MOVE radius,0 
1040 FOR angle=0 TO 2*PI STEP PI/16 
1050 X=radius*COS(angle) 

1060 Y=radius*SIN(angle) 

1070 MOVE 0,0:PLOT 85,X,Y 

1080 NEXT angle 
1090 ENDPROC 


In order to emphasize the 3D effect, 
the three edges of the cube separating 
the visible faces are drawn over the 

using a 
than that 


top of the coloured 
colour logically one more 
used for the cube as a whole. 


As with the other programs, this one 
repeatedly calls the procedure to place 
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cubes randomly on 
Nevertheless the results are both 
colourful and effective. 


the 


1000 DBF PROCcube(colour,size,x,y) 

1010 GCOL 0,colour 

1020 MOVE x,y:MOVE x,y+size 

1030 PLOT 85,x+size,y:PLOT 85,x+size,y 


10 REM Program CUBES 

20 REM Version El .0 

30 REM Author Mike Williams 

40 REM ELBUG April 1984 

50 REM Program subject to Copyright 

■60 : 

100 MODE 2 

110 ON ERROR GOTO 190 
120 REPEAT 

130 x=RND(1024):v=RND(l024) 

140 size=RND(500):colour=RND(7) 

150 PROCcube{colour,size,x,y) 

160 UNTIL FALSE 
170 END 

180 : 

190 ON ERROR OFF:MODE 6 

200 REPORT:PRINT" at line ERL:END 

210 : 


+si ze 


1040 PLOT 85,x+1.6*size,y+0.6*size 
1050 PLOT 85,x+1.6*size,y+l.6*size 

1060 MOVE x+size,y+size 

1070 PLOT 85,x+0.6*size,y+1.6*size 

1080 PLOT 85,x,y+size 

1090 GCOL 0,(colour+1)MODS 

1100 DRAW x+size,y+size:DRAW x+size,y 

1110 MOVE x+size,y+size 

1120 DRAW x+1.6*size,y+l,6*size 

1130 ENDPROC 


Next month we will look at ways of 

filling more irregularly shaped areas 
on the screen, together with some of 

the other applications of the PLOT 
command. 


i 


HINTS 


IIIN 


HINTS 


HINTS 


HINTS 


1 


HANGING THE FL ASH RATES 

at which the flashing colours flash, can be changed using *FX9,m and 
*FX10,s where m and s are described below. 

forces the first named colour to show continually. 

sets the mark duration for the first colour, with m in 50ths of a second 


The rate 


*FX9,0 

*FX9,m 

FX10,0 forces the second named colour to show continually. 

FX10,s sets the space duration for the second named colour, with s in 50ths of a 
second. 


* 


* 


Initially the values of m and s are 25, 


SPACE INVADER PROMPT 

The VDU 23 call can be used very amusingly to re-define the prompt symbol '>' to 
be a space invader. Try the following: 

VDU23,62,60,126,219,255,126,60,36,66 <return> 


POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG 


These games work, though any logos or 
title 


gibberish. 

Finally I would like to congratulate 
you on your superb magazine. I find it 
interesting, useful and fun, and the 
games are always well worth the effort 
of typing them in. 


Due to the shortage of Electron 
software on the market, I thought it 

would be a good idea to publish a list 
in your magazine of all the BBC micro 
software which will run reasonably well 
on the Electron. The games which I have 
found to work well are: 

DARE DEVIL DENNIS 

by Vision Software. 

GALACTIC COMMANDER by Micro Power. 
MONSTERS by Acornsoft. 

3D-B0MB ALLEY by Software Invasion. 
VORTEX by Software invasion. 


M.Ryemill 


Reply: 


We hope other members will find this 
useful, though there are now versions 
of Dare Devil Dennis and 


Monsters 

available for the Electron, and other 
programs will soon follow. fl 
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SAVING AND LOADING SCREEN DISPLAYS 

by David A. Fell 


On the Introductory Cassette that canes with each Elec:tron, there 
are two programs called ISLAND and PLANETS which each load a 
'picture' from cassette to the screen, and display two apparently 
moving displays: one of an island, and one of a number of planets 
against a starry background. David Fell now explains how to load and 
save such screens to cassette, and presents a procedure to help you. 


When the Electron displays a screen, 
it is reading data from an area of 
memory, called 
conver ting it 

that are fed to your TV (or monitor). 
Thus, it is the contents of the screen 
memory that dictate what will be shown 
on your display, and by altering this 
memory, we can alter what is displayed. 

recorder attached to 
your Electron, you can easily save the 
contents of the screen memory, and load 
it back in again at a 
such a way as to exactly reproduce the 
picture first obtained. We present here 

a procedure which you may append to any 
screen generating program in Basic, to 

allow screens to be saved to cassette. 


PROCsa vescreen 

Whenever the program comes across this 
command, the screen saving procedure 
will be entered. This will produce a 
beep to tell you to start your recorder 
{in record mode), and another beep when 
the 

prompts obviously cannot be used, since 
they would 
to be saved. 




and 


memory , 
into electrical signals 


has been saved. Visual 


interfere with the display 


There is one limitation to the 
saving of screens in this way - the 

must NOT have been scrolled 

the last change of mode before 
the save is performed (unless 

using 'windows'). 


later date 


in 


you a re 


It is easy to use, and does not 


RE-LOADING THE SCREEN 


even 

require you to tell it what screen mode 

it works it all out for 


The screen saved using the procedure 


presented here will be given the name 
SCREEN. To re-load it, change to the 

(the mode in which the 


is in 

itself. To use this procedure, proceed 
as follows: 


correct mode 


screen was saved), and then type: 


a) Type in the procedure, and save it 

to tape in the way described in the 
article 'Using Functions and 
Procedures' found elsewhere in this 


*0P‘T1 <return> 

*L0AD SCREEN <return> 

The * is vital, and 
need to be enclosed in quotes. As it 
loads, you should see your picture 
build up from the top downwards. 


SCREEN does 


not 


b) Load the program to which the 

procedure is to be appended, and check 
that the line numbers do not clash. If 
they do, you should renumber the main 
program first. 


NOTE: The command *0PT1 prevents any of 
the normal 


screen messages appearing 


while saving the screen image. You 


can 


return to the normal state by typing 


*0PT <return> 

or by just pressing Break. 


c) Exec in the procedure (in the manner 

above mentioned 


the 


in 


article). 


1000 DEF PROCsavescreen 

1010 *0PT1 

1020 LOCAL A%,B% 

1030 A%=135:A%=USR(&FFF4)AND&FF0000 

1040 A%=A%DIV&10000 

1050 IF A%<3 B%=&3000 

1060 IF A%=3 B%=&4000 

1070 IF A%=4 OR A%=5 B%=&5800 


You should now have a copy of your 
program with the screen procedure 
appended. Next simply insert the 
following line into your main program 
at the point where you wish the screen 


to be saved: 
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1080 IF A%=6 B%~&6000 
1090 VDU7 

1100 *FX138,0,13 

1110 OSCLI("SAVE SCREEN "+STR$~B%+ 


MODE START ADDRESS 

&3000 

&3000 
&3000 

&4000 
&5800 
&S800 
&6000 


0 


1 


II 


2 


3 


1120 *OPT 

1130 ENDPROC 


4 


5 


6 


TECHNICAL NOTES 

^MM 

You can 

typing in the command directly (or 
include the command directly in your 

program) by means of the operating 
system *SAVE command. This is used in 
the form of: 


also 


save the 


I f you manage to 
screen images that you think might be 


create any nice 


of interest to other readers, just save 


them on a cassette, and send them in to 


the editorial address. We will 


at 


publish the best of these in the 
magazine and will award as a prize, to 
the author of the most outstanding 
display, one of the new SIR ROM 
expansion boards for the Electron 

review of this new product 

The closing 
entries is 30th April, 

will be 


*SAVE <filename> <start address> 7FFF 
where 'filename' is the name of the 
file that you want 
saved as, and 

hexadecimal 


the screen to be 


is a 

number representing the 
start address of the screen memory. The 
table below shows the start address of 


our 

elsewhere in this issue). 

date for your 

and the Editor's decision 
final. 


screen memory for the 7 screen modes of 
the Electron. 


HINTS 


HINTS 


HINTS 


HINTS 


HINTS 


EASIER ENTRY OF LOWER CASE VARIABLE NAMES 


K.Walker, J.Hewes and many others 


When in normal upper case mode, 

comes out in lower case. This mechanism allows lower case text to be very 

as part of a program. This is particularly useful for entering variable and 
procedure names in lower case characters. 


if shift is pressed with a letter key, the letter 


RANDOM EVENTS 


If you want something in a program to happen at random you should use the 
command. 


RND(n) 

xample to make PROCEXPLODE happen on average once in every six tries 


For 


IF RND{6)=1 THEN PROCexplode 


TOO KEY ENTRY FOR ENDPROC 

The Electron allows a number of Basic commands to be entered just using 
and a single key. For example, Func-Z and Func-X can be used to produce the keywords 

END and PROC respectively. However, if you combine both keys, the keyword ENDPROC is 
formed; i.e. press and hold down the Func key, and then press Z followed by X. 


Func' 


N.Haigney 


EASIER VIEWING OF TEXT 

To make your Electron have the same screen appearance as that obtained on the 
"COMPUTER PROGRAMME" on television (blue with black stripes), use 
*KEYl MODE 6:VDU 19,0,4,0,0,0jM <return> 

Pressing function key one will select Mode 6 and turn the background to blue 

one of the functions of the KEYSET program included on the ELBUG 
introductory cassette. 


This 


also 


is 
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NEW ELECTRON ADD-ON FROM SIR COMPUTERS 


Reviewed by David ! : ell and Philip I.e Grand 


We review here the new ROM expansion board for the Electron from Sir 
Computers, who 
Electron add-on. 


to have won the race to produce the first 


WHAT IS A ROM BOARD ? 

You may well be wondering what a ROM 
board is and why you might need one. To 

explain, consider the case of the BBC 
micro. One of the features that makes 
this micro stand out from the 


competition is the ability to plug in 
special memory chips containing, for 
example, other programming languages 
and utility software 


memory 

are in two forms known as ROMs 


devices 


(Read Only Memories) or EPROMs (a 

reusable form of ROM). Their contents 
cannot be altered by writing to them, 

unlike the normal RAM (Random Access 
Memory) used for your own programs and 
data in your Electron. The BBC micro is 
capable of accessing up to sixteen 
different ROM devices, but the Electron 
does not include the necessary hardware 
for this task. This has prompted 
several hardware manufacturers to 
design suitable add-on units to rectify 
this situation. Sir Computers of 
Cardiff appear to have won the race to 
produce the first production-1ine 

product. 


switching on, and typing 

*HELP <return> 

the following message was displayed: 


GRAPHICS EXTENSION 1.03 


OS 1.00 


This proved that the board was working 

- at least to the extent of being able 
to recognise the Graphics ROM. In 
almost all the commands offered by this 
ROM worked well on the Electron. 


The Sir add-on ROM pack complete 

of two circuit boards 
enclosed in a case and a manual. The 
whole unit plugs in to the rear of the 
Electron 

identical connector allowing for even 
more expansion. 


unit consists 


itself has 


and 


a further 


The board was then filled to its 

capacity of twelve BBC micro ROMs 
there being no available Electron ROMs 

at present. The Electron's power supply 
withstood the extra load imposed upon 
it by this. However, the majority of 
the software tested failed 
correctly, if it worked at all. This is 
in no way due to Sir’s add-on unit. In 
fact the only ROMs which operated 
correctly were VIEW and BCPL, both 
written by Acornsoft. The high failure 

was largely due to the extensive 
use of Mode 7 which is not available on 
the Electron. The Acornsoft ROMs 
not mode dependent. 


The unit is very large 

circuit board used is slightly larger 
than the Electron's main circuit board 
- and is constructed to a 
standard. However 


the main 


very high 


it is a pity that 
the high quality of the design did not 
continue on to the edge of this board. 

Our review board used several small 

which did not appear 

to be very strong, in order to connect 
the two boards that are used together. 


edge connectors. 


We plugged a BBC micro Graphics ROM 
into the expansion board, and on 


Volume ! Issuc-5 


El 3UG 


April 1984 
















































13 


The board 


the user several. 


configurations for ROM and RAM. All the 


options are link selectable, i.e. 


no 


soldering is required. The first four 
sockets can be configured to accept any 
combination of 2K, 4K, 8K, or 16K ROM 

The ability to 
mix devices allows ROM based software 


RAM devices. 


or 


1C 


to be fully self contained with its own 
RAM workspace, without taking any of 
the precious user RAM, but any extra 

RAM added to the board in this way 
cannot be used to extend the main 

memory area of the Electron. The 

8K or 16K 
but can be individually 
changed to take 2K or 4K devices. 


t 


of the sockets will accept 


ROM devices 


Despite the apparently precarious 
connection of the ROM board to the 
Electron, which is somewhat reminiscent 
of the old ZX81 RAM pack, the computer 
failed to crash despite 
attempts on our part to induce failure. 
We understand from Sir Computers that 
both boards, in production models, will 
be enclosed in a single case, the back 
of which will form a 
the 

other peripherals 

review sample, a pre-production unit, 
was without a case. 


In conclusion, the expansion system 

performed well and allowed great 
flexibility in its use. The complete 
unit costs £47.15 (inclusive) which is 
not unreasonable compared to similar 
units for the BBC micro with 
facilities. However, the fact remains 
that if you buy this board now, you 
will have virtually no software to use 
with it 

two ROMs for the Electron shortly - 
machine code monitor (EXMON) and a 
Basic programmers aid (TOOLKIT). It is 
also likely that other software in ROM 

will become available for the Electron 
now that there is a means of using it. 


direct image 


of 


of the Electron, allowing 

to be added. CXir 


though we will be producing 


a 


It would not be fair to comment 
much on the manual we received since it 


was a pre-release version 


although the 
text and diagrams in it were clear and 
precise about the 
available 


The board can be purchased from: 
Sir Computers Ltd 
Cardiff, CF4 3JP 
Tel:(0222)62181 3 


options 

final 


var ious 

the user. The 

version will, we understand, be a small 
booklet with a couple of extra example 
programs showing how to use the RAM 
options. 


91 Whitchurch Road, 


to 


* 9 


HINTS 


HINTS 


HINTS 


HINTS 


HINTS 


TRANSPARENT KEY DEFINITIONS - T.G.Ward 

to change the function key definitions without corrupting a 

program currently in memory. This is achieved by previously having *SAVBd the memory 
contents of the key definition buffer (located from &B00 to &BFF). Then when you 
want to change the definitions, just *LOAD the 
memory. The whole process of loading into memory will be transparent to any Basic 
program existing in memory. For example, initialise your function keys in the usual 
way, and then save the definitions as follows: 

*SAVE n DEFl" B00 BFF <return> 

Where DEF1 is the file name. Now, whenever this set of functions are required, type 
in the following line: 

*LGAD "DEFl" <return> 


It is possibl 




set of definitions into 


required 
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USING PROCEDURES AND FUNCTIONS 


by Rob Pickering and Philip I.e Grand 


If you have looked in any detail at many of the programs published 

in ELBUG you will have seen that the majority make extensive use of 
procedures. These, together with functions, form a very useful and 
powerful feature of BBC Basic (used on the riectron). Rob Pickering 
and Philip Le Grand explain clearly just what functions and 
procedures are and tell you how to set up your own function and 
procedure library. 


it seems sensible to call 

it "PROCwait". Note also that using 

lower case letters for the name helps 

then 


WHAT IS A PROCEDURE? 

Although it is perfectly feasible to 

write programs for the Electron without 
any knowledge of procedures, there is 
no doubt that their correct usage leads 
to a far superior program. 




a 


i * 


to make it. clearer to read. Here 


is our example procedure in full: 


PROCwait 


1000 DEF 


1010 *FX1 5,1 
1020 key=GET 
1030 ENDPROC 


Think of a short part 
program, which 
task within the program, 
which, for 


of a whole 
out one minor 
A few lines 
example, wait for the user 

continuing. 

Assume that this minor task will be 


carries 


As you can see this is only a simple 

such it is not 
the usual length of 

You will notice that 

starts with the 


to press a key before 


and as 


short examp 
typical of 
procedures, 
line -000 




performed several times 


within 

fairly typical. We 

lines at each 


the 


program, which is 
could enter 


the same 


of the program where it is 
required, but this is tedious and takes 
up a lot of memory. What we do is make 
the relevant group of 
collective unit called a procedure. So 
you can think of a procedure as being a 
section of program which performs a 
given task as many times 


"DEF", short for DEFINITION. It simply 
informs the computer that this is the 
start 


of a procedure that we 

ining*. Once defined, we simply 
its unique name whenever it is 
required. For instance, here 
example of how we might use PROCwait 

within a program. 


into a 


an 


required. 


similar 


in some ways to 
isubroutine (i.e. using GOSOB...RETURN) 

advantages over the 


It 


is 


a 


103 PRIN7"Press any key to continue.. 

110 PROCwait 

120 PRINT"Thankyou." 

130 END 


II 


but has certain 


subroutine. 


Each procedure is given a name to 
distinguish it from other procedures. A 
procedure name is very similar to a 
variable name, but with two 


Notice that we do not need to know 
at what program line the procedure 

it. The BBC 
Basic holds a list of where the 
procedures are in the program, each 
location being 

procedure is 

when you use a procedure, 
not have to search through the whole 
program in order to 
procedure, hence providing 
operation. Note also that procedures 
are terminated with an ENDPROC, passing 
execution back to the instruction 
following the one which called the 
procedure. 

called in 'immediate mode 


in order to 


(a) they must always start with the 
keyword "PROC" in order to distinguish 
them from variable names, 

(b) they may not end with a "$" or 
symbol. 


when 


the 


defined. 


Tnis means that 


II o_ II 




find the correct 


Choosing an appropriate name for a 

procedure is very important, not only 
to make the program understandable to 
other people, but also to help yourself 
to remember what all the procedures do. 
Since the purpose of our example 

procedure is to wait for the 


also be 


can 


that is to 


to 
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say, directly from the keyboard. Thus 
if you type PROCwait <return>, the 
procedure will also be executed. This 
allows you to debug a program procedure 

by procedure, rather than trying to 
test a whole program at once. 


values, but remember that the type of 

MUST match the type of 
variable in the definition. Note 
though, arrays cannot normally be 
passed to procedures. An example will 

help to make this clearer. 


100 value!=3.526 
110 value2%=55:y%-l0 

120 value3$="HELL0" 

130 PROCoutputvalues(value!,value2%,va 

lue3$,101) 

140 PRINT y% 

150 END 

1000 DEF PROCoutputvalues(x,x%,x$,y%) 

1010 PRINT'* x,x%,x$ 

1020 PRINT y 

1030 ENDPROC 


PARAMETERS 


You will inevitably have heard of 

parameters, but may not know what they 

or what their purpose is. 
Parameters form a handy way of passing 

to a procedure. For example, we 
can alter the above procedure to cause 
a delay of a set amount, by passing the 
delay length as a parameter to the 
procedure rather than waiting for ever 

so a sensible 


va1ues 


a 




a key is not pressed. 


if 


name would be 

below: 


II 


PROCdelay", 


given 


Enter and run the complete program 
above, which demonstrates that the 


variables passed to the procedure are 


100 DEF PROCdelay(secs) 
110 TIME=0 
120 REPEAT 
1 30 RE2*! Do nothing 
140 UNTIL TIME>100*secs 
150 ENDPROC 


actually different from the variables 
in the rest of the program. In the main 
program "y%" is simply set to the value 
10, but the fact that a variable of the 
same name within the procedure has a 
different 

demonstrates that they are separate, 
and we can print out the original value 

of y% when we return. Also notice that 
the last parameter passed is a value 
and not a variable. 


value 


(namely 


101 ) 


A parameter is simply a value which 
will be used by the procedure in some 
way in the performance of its task. We 


use the expression "parameter 


passing 

for the way in which values are passed 
from the main program into the 

procedure 


Local variables are not limited to 

those which we use as parameters. In 
fact we can make all the variables that 


procedure. 

definition includes a parameter, (a 
variable named 

determine the number of seconds delay, 
and applies to a variable ’which will 
exist in the locality of the procedure 
only. 


the 


Here, 


secs") which will 


»l 


are used within a procedure local to 
itself. To achieve this we are provided 

with the Basic command "LOCAL" which is 
followed by a list of all the local 

variables. Provided that any variables 


used within a orocedure are declared as 


LOCAL AND GLOBAL VARIABLES 

Something which exists only inside a 
procedure definition is 
"LOCAL" to the procedure, 
to something outside the procedure is 
said to be a "GLOBAL 

variable name is given as a parameter 
in the procedure definition it does not 
then 

from the main program. What happens is 
that when we use the procedure we must 
give a parameter there too. The value 
given in the call to the procedure is 
automatically copied into the 
procedure's own local variable. The 
type of parameters that can be passed 
to a procedure include real, integer 
and string variables, as well as actual 


LOCAL, you never have to worry whether 
the same variable names are being used 

elsewhere, either in the main program 
or in another procedure. This means 

that you can take a procedure from 
someone else and need only know what 

task it performs, its name, and what 

parameters it requires to 
your own program. 


said 


to be 


* i * 

it in 


variable of the same name 


a 


STRUCTURED PROGRAMS 


One of the great advantages of using 
procedures is that their very use leads 
naturally to structured programs. As an 

example of a well structured program, 

not 

included line numbers as this is just a 


program 1 below (we have 
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real nrsnber or a string. The function 
is also called differently to a 
procedure, as in the example, by being 
used as would any value in the program. 

For example 

ans$=FNoption 

or PRINT FNoption 

Functions are defined in a similar 
manner to procedures using the keyword 
DEF. The function FNoption could be 
defined as follows: 


general outline of a program). It has 

The first is called 


two main sections. 


the MAIN section and contains generally 

very 'readable' code, calling upon each 
procedure to carry out its task when it 


is needed. The second section is merely 


a collection of all the procedure and 

function definitions. See if you can 
tell what it does without having any 

idea of the actual programming involved 
in the definition. 


DEF FNoption 

PRINT'C = 

PRINT"E = 
PRINT"U = 

PRINT"STOP 
PRINT 
INPUT entry$ 

=entry$ 


REM Program 1 
PROCtitles 
PROCinitialise 
REPEAT 

PROCoptionmenu 
choice$=FNoption 
IF choice$="C" PROCcreatefile 
IF choice?-"E" PROCeditfile 
IF choice?="U" PROCupdatefi1e 
UNTIL choice?="STOP 
PROCtidyup 


creates a new file 


edit a file 


update a file 

= exit program 
Enter your choice 


11 


1 H 


The result is always placed at the 
end of the function, 
character, to terminate it. Similarly 

many parameters as you like can be 

passed to a function, although only one 
is returned. It is possible to write 
complete programs using procedures and 
functions without resorting to GOTOs or 
GOSUBs of any kind. 


II 


the 


END 


DEFINE ALL PROCEDURES 
DEF PROCoptionmenu 


* ir ★ 


REM 


ENDPROC 

DEF PROCcreatefile 


m m 


ENDPROC 

DEF PROCeditfile 


USING FUNCTIONS AND PROCEDURES 


versatility, many 
functions and procedures that you write 
can be used time and time again in your 
own programs. This is where a 
function/procedure library can be 
useful. 


Because of their 


ENDPROC 

DEF PROCupdatefile 


ENDPROC 

DEF PROCtidyup 


« * * 


The idea of such a library is that 

it should contain all your most useful 
functions and procedures. When you are 

writing a new program, you will often 
find 


ENDPROC 
DEF FNoption 


up program 

of the 


you 

development by using some 
existing procedures and functions from 
your library. It is very easy to set up 
your own library using the *EXBC and 
*SPOOL commands. 


can 


The 'END 1 statement dividing the two 
sections of program is essential here 
to avoid the program re-entering the 
procedure definitions 
body of the program has been completed. 


the main 


When you have a function or 

procedure that you want to 
make sure it is 


FUNCTIONS 


save, do 


noticed in 


the 


You may also have 
above program the line with 
'choice$=:FNoption' in it. This is 

another device used in structured 

It is called a function. 

very similar to 


fully tested. After 


all, there is no value in having a 
library of failures! It is also a good 
idea to number the procedures with high 
line numbers, say from 10000 onwards. 

suitable place on your 

the module, 


programs. 

Functions 

procedures except that they can return 

one value back to the main program. The 
value returned may be an integer, a 


Then select a 


library cassette to 


and type in the following: 
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*SPOOL example <return> 

where 'example' is the name of the 
module (no quotes are required). Switch 
your recorder to record when prompted 
by the computer# press Return and type 
LIST <return>. When the listing 
finishes, type *SPOOL <return>, and 

turn your cassette recorder off, Now 
every time you require that module in 
another program, locate its position on 
the tape, renumber your program so that 
the last line is less than 10000, anti 
type: 

*EXEC example <return> 

Press Play on your recorder, and the 
module will be automatically merged on 
to the end of the program. This can be 
repeated for as many modules as you 


require. It is important that the line 
numbers of the program and the 

procedure being merged are quite 
separate. If necessary, renumber your 
program before merging in the next 
section. 

Some examples of functions and 

procedures that people have already set 
up into their libraries include fast 
circle plotting procedures, delay 
procedures, functions to read data 
input at the keyboard, procedures to 
plot double height characters, date 
validation procedures, and sorting 
procedures. We will be supplying some 

ready-made procedures in forthcoming 
issues of ELBUG. This issue, for 
example, contains a procedure for 
saving graphics screens. 




FABRIC PATTERNS 

by D. J. Allom 


The following very short program 

creates a variable technicolour 
display, simulating woven patterns seen 
in fabrics. The display is built up 
from left to right with successive 
passes using randomly chosen colours. 
The program may be halted temporarily 
at the end of a complete pass by 
pressing the space bar once. When it is 
pressed again, the program continues 


its progress, changing the pattern yet 
again. Re-running the program, should 
produce new patterns. You may wish to 

make it perform this automatically to 
produce a non-stop display. Just add 
the following: 

200 GOTO 10 


10 REM Program FABRIC 



20 REM Author D.J.Allom 
30 REM Version El.1 
40 REM ELBCJG April 1934 

50 REM Program subject to copyright 
60: 

100 ON ERROR MODE 6:END 
110 M0DE2:VDU 23,1,0;0;0;0; 

120 REPEAT 

130 GCOL3,RND(7):A%=RND{4)*4 
140 FORB%=256 TO 1024 STEPRND{4)*3 
150 FORC%=224 TO 800STEPA% 

160 PLOT69,3%,C% 

170 NEXT, 

180 IF INKEY(0)=32 THEN OSCLI("FXl5,1 
"):REPEAT UNTIL GET=32 
190 UNTIL FALSE 
200 END 
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DOMINOES 

bv C. C. RadclilTe 
■ 


The program DOMINO provides an excellent computer version of the 
popular table game of dominoes for you to play against your 
Electron. The graphics used in this program are a real delight and 
show just what can be achieved using this micro. 


This is a game of dominoes in which 
you pit your wits against the ice cool 
steely resolve of your Electron (or Elk 
as it likes to be known). The object of 

dominoes is very simple 
and lay all your dominoes down on the 
'table' before the computer. 


you must try 


You and the computer each select a 
domino at the start of the game to see 
who goes first. You will then see your 
initial set of seven dominoes displayed 
at the bottom right of the screen. When 
it is your turn to go, choose which 
domino you want to play by pressing the 

appropriate number key, and then press 
either 1 or 2 to indicate at which end 
you wish to play. This may often be 
obvious to you, but not to the computer 

which cannot 
are unable to play a domino from your 

hand, when it is your turn, then you 
must 'knock' by pressing 'K', and you 

will be given another domino from the 
unused pile. The computer's dominoes 

not displayed on the screen; that 
would be cheating, but it plays to 
exactly the same rules and will also 
'knock' when unable to go. 


120 CLEAR 
130 *FX11,0 
140 MODE! 

150 VDU23,1,0;0;0;0; 

160 PROCinit 
170 PROCsnuffle 

180 PROCstart 

190 REPEAT 

200 WT=FALSE 

210 PROCshuf fle:S%=0 

220 GCOL0,129:CLG 

230 VDU28,0,31,14,26,12,18,0,0,25,4,4 
80;188;25,5,1279; 188; 

240 FOR I%=1 TO 9 

250 MOVE29,1023-I%*80:PLOT25,1221,0 
260 IF (I%MOD2 AND I%<9) PLOT25,0,-80 
ELSE IF I%<9 PLOT0,-1221,0:PLOT25,0,- 


your hand. 


Note that because of the limitations 

of the screen display, you cannot have 
more than 
any one time. At the end of the game, 
the overall score is displayed on the 
screen, together with any dominoes left 
over in either hand. 


dominoes in your hand at 


9 


89 


270 NEXT 
280 FORI%=0TO1 
290 PROCpick(I%,7):end%(1%) 

1%) =3 

300 NEXT 
310 WT=TRUE 
320 REPEAT 

330 IFELK%PROCELK ELSEPROCdisphand(1, 
0):PROCplayer 

340 (JNTILtotl (0) =0 ORtot%(l)=0 QR(bk^ 
ANDpk%ANDS%>27) 

350 I%=0:W%=0:REPEAT 
360 IFtot%(1%)=0 PROCwin (1%):W%=1 
370 I!=I%+1 
380 UNTIL W% OR I 


1:endl%( 


This is a very nicely presented game 


using Mode 1 graphics which is really 
pleasing to play. 


10 REM PROGRAM DOMINOES 
20 Rm AUTHOR 
30 REM VERSION El .0 
40 REM ELBUG 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

100 ON ERROR GOTO 430 

110 : 


C.C.Radcliffe 


APRIL 1934 


» 


0 . 


2 
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390 IFW%=0 W%=FNwin:PROCwin(W%) 

400 UNTILFALSE 
410 END 
420 : 

430 ON ERROR OFF:MODE 6 
440 *FXl2 

450 IF ERROT7 REPORT: PRINT 
"; ERL 
460 END 
470 : 

1000 DEFPROCinit 
1010 DIMdom$(27),hand$(l,9),tot%(1),en 
d%(1),endl% (1),endx%(1),win%(2), th%(1) 
1020 A%=RND(TIME) 

1030 FORI%=0TO1 
1040 tot % (I!)=0 
1050 FORK%=0TO9 


1310 LOCALBl, bd%,P%,N%,pd%,s$,t$ 

1320 CLS 

1330 PRINTTAB(16,1)"DOMINOES" 

1340 PRINT 

ase type in your name: 

1350 REPEAT:INPUTTAR(0,8)n$:L%=LEN(n$) 
:IFL%>10PRINTTAB(3,8)SPC(L%) 

1360 UNTILL%<11 
1370 PRINT 

1380 PRINT"Please enter a number (1-28 

a domino, the ELK will a 
the highest number of d 


1 I tl 


Welcome to ELKDOM. 


Ml I U 


Pie 


ft i 


at line 


I | II 




Hello 


tl 


tl t 


Ml I M 


Iso choose 


it 1 ft? 


1390 REPEAT:INPUTTAB(0,19)P%:P%=P%-1:U 
NTILP%<28ANDP%>=0 
1400 pd%=FNtotdot(P%) 

1410 REPEAT 

1420 B%=RND(28)-1 
1430 bd%=FNtotdot(B%):s$="ELK" 

1440 UNTILC%OB%ANDpd%Obd 
1450 PROCdomino(320,320,TRUE,FNldot(do 
m$(P%)),FNrdot(dom$(?%))):PROCdomino(96 
0,320,TRUE,FNldot(dom$(B%)),FNrdot(dom$ 
(B%))) 

1460 PRINTTAB(0,26)SPC(10-LEN(n$)DIV2) 

;n$;S PC(17-LEN( n$) DIV2);s$ 

1470 IFbd%>pd%ELK%=TRUEELSEELK%=FALSE: 

s$=n$ 

1480 PRINT's$; 
ey to continue. 

1490 P%=GET 
1500 ENDPROC 
1510 : 

1520 DEFFNtOtdot(N%)=FNldot(dom$ (N%))+ 
FNrdot(dom$(N%)) 

1530 : 

1540 DEFFNldot(D$)=VAL(LEFT$(D$,1)) 
1550 : 

1560 DEFFNrdot(D$)-VAL(RIGHTS(D$,1)) 

1570 : 

1580 DEFPROCdomino(X%,Y%,0%,L%,R%) 

1590 L0CALN%,D% 

1600 GCOL0,2:1FO%MOVEX%-3 0,Y%-6:PLOT0, 

0,12:PLOT81,60,-12:PLOT81,0,12ELSEM0VEX 
%-6,Y%-30:PLOT0,12,0:PLOT81,-12,60:PLOT 

81,12,0 

1610 F0RN%~-1TOlSTEP2 
1620 QCOL0,3:IFO%MOVEX%+N%*30,Y%+N%*66 
ELSEMOVEX%+N%*66,Y%+N%*30 
1630 PLOT0,-60*N%,0:PLOT81,60*N%,-60*N 
%:PLOT81,-60*N%,0 
1640 NEXT 
1650 0%=ABS(0%) 

1660 F0RN%=-1TOlSTEP2 
1670 H%=0%*(X%-8)-(0%-l)*(<X%-8)+N%*36 
1680 V%=0%*((Y%+18)+N%*36)-(0%-l)*(Y%+ 


a 




* I! 


II 


1070 NEXT:NEXT 

1080 FOR I%=0 T02:win%(1%)-0:NEXT 

1090 VDU23,255,0;0;32,112,32,0 
1100 VDU19,1,2,0,0,0:VDU19,2,1,0,0,0 
1110 bk%=0:pk%=0 
1120 ENDPROC 
1130 : 

1140 DEFPROCshuffle 
1150 RESTORE1280 
1160 LOCALN%,I% 

1170 FORN%= 0TO27 
1180 dom$(N%)=" 

1190 NEXT 
1200 FORN%-0TO27 

1210 REPEAT 

1220 I%=RND(28)-1 
1230 UNTILdom$(I%) 

1240 READdom$(I%) 

1250 NEXT 
1260 ENDPROC 
1270 : 

1280 DATA00,01,02,03,04,05,06,11,12,13 

,14,15,16,22,23,24,25,26,33,34,35,36,44 

,45,46,55,56,66 

1290 : 

1300 DEFPROCstart 


It 


fl 


18) 


1690 IFN% 

1700 VDU5:PROCdot(H%,V%,D%) 

1710 NEXT 


1D%=L%ELSED%=R% 
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2110 PR0Cdomino(X%,80+T%*l84,TRUE,FNld 

ot(hands(P|,N%)),FNrdot(hand$(P%,N%))) 
2120 MOVEXl-l 0,180+T%*l84 

2130 VDU5 

2140 IF T%=0 PRINT;N% 


1720 VDU4 
1730 ENDPROC 

1740 : 

1750 DEFPROCdot(X%, Y%, T%) 

1760 LOCALNI,M%,D%,A%,HI,VI 
1770 M%=T%MOD2:D%=T%DIV2 

1780 GC0L4,0:MOVEX%,Y% 

1790 IFMlPRINTCHRS255; 

1800 IFD1=0ENDPROC 

1810 IF0%RESTORE1940ELSERESTORE1950 

1820 N%=0 

1830 REPEAT 

1840 READA%:N%=N%+1 

1850 UNTILN%=D% 

1860 RESTORE 1 960 

1870 F0RN%=1T08 

1880 READHl,V%,Ql 

1890 MOVEX%,Y%:PLOT0,H%,V% 

1900 IFQ%ANDA%PRINTCHRS255 

1910 NEXT 
1920 ENDPROC 

1930 : 

1940 DATA&44,&55,&DD 

1950 DATA &11,&55,&77 

1960 DATA -20,20,1,0,20,2,20,20,4,20,0 

, 8,20,-20,6(1 0,0,-20,6(20, -20, -20,&40, -20 
,0,&80 
1970 : 

1980 DEFPROCpick(P%,D%) 

1990 LOCALN% 

2000 F0RN%=1T0D% 

2010 IFS%>27Dl=N%ELSEhand$(P%,totl(PI) 
J^omSfSI) :S|=SI+1 :PR0Csound 
2020 NEXT 
2030 ENDPROC 
2040 : 

2050 DEFPROCdisphand(P%,TI) 

2060 VDU24,500;0+T%*l84;1279;184+Tl*l8 
4; 16 

2070 LOCALNI,X% 

2080 IF totl(P%)=0 VDU26:ENDPROC 
2090 FORN%=0 T0tOt%(P%)-1 
2100 X%=532+(N%)*72 



2150 NEXT:IF T%=0 VDU4,24,0; 1 96; 1279; 1 
023; ELSE VDU4,26 

2160 ENDPROC 
2170 : 

2180 DEFPROCELK 

2190 LOCALE%,N%,Dl,0%,L%,R%,P%:ELK%=FA 
LSE:bk%=0 

2200 IFend%(0)=-1X1=640:Y%=623:D%=FN1s 
t:LI=FNldot(hands (0,D%) ):R%=FNrdot(hand 
$(0,D|)):end%(0)=L%:end%(1)=R%:0%=(L%=R 
%):P%=1:FORE%=0 T01:endx%(El)=640+FNcen 
tre:PROCendno(E%):NEXTELSEPROCplay:PROC 
endno(E%) 

2210 IFPIPROCdomino(Xl,Yl,Ol,Ll,R%):PR 
OCsort(0,D%)ELSEPROCpick(0,1):bk%=l 
2220 ENDPROC 

2230 : 

2240 DEFFNvert(D$) 

2250 IFFNldot(DS)=FNrdot(D$)=TRUEELSE= 

FALSE 
2260 : 

2270 DEFPROCplayer 

2280 LOCALE%,B%,F%,N|,PI,Dl,XI,Yl,0%,I 

%,J%,L%,R%:ELK%=TRUE:pk%=0 
2290 PRINT'"Press number"'"for domino" 

1 "you wish to" 1 "play.(k=Knock)" 

2300 REPEAT:D%=GET-48:UNTIL(D%>=0 ANDD 
%<tot%(1))ORD%=59 ORD%=27:IFD%>tot% <1)P 
ROCpick(1,1):pk%-l:ENDPROC 
2310 II=FNldot(handS(1 ,D%) ):J%=FNrdot( 
hand$(1,D%)):0%=FNvert(hand$(1,D%)) 

2320 IFend%(0)=-lX%=640:YI=623:L%=I%:R 

%=J%:end%(0)=L%:end%(1)=R%:P%=TRUE:FORE 
%=0 TO!:endx%(El)=640+FNcentre:PROCendn 
o(E%):NEXT:Q0T02370 

2330 IFend%(0)O-lCLS: PRINT'"Press num 
ber"’"for end'" "you wish to"'"play.":RE 

PEAT:E%=GET-49:UNTILEI=0ORE%=1 
2340 IFI|=endl(El)BI=0:F%=1 
2350 IFJ%=end%(E%)B%=1:F%=1 
2360 IFF%PROCendno(E%):PROCarrange(B%) 

:PROCsetup(E%):PROCendno(E%) 

2370 IFPlPROCdomino(X%,Y%,0%,L%,R%):PR 
OCsort(1,D%)ELSEPROCpick(1,1):pk%=l 
2380 IF WT SOUND0,-15,100,6 

2390 IF WT G=INKEY(1 00) 

2400 ENDPROC 
2410 : 

2420 DEFPROCplay 

2430 LOCALI%,i%,J%,j,K%,B%,TI,M%:E%=-1 

2440 FORM|=0TOtot%(0)-1 

2450 i%=FNldot(hand$(0,M%)):j%=FNrdot( 

handS(0,Ml)) 

2460 FORK%=0TO1 

2470 IFil=end%(K%)ANDT%<=i%+jlPROCsave 
:B%=0 
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2480 IFj%=end% (K%) ANDT%<= £ i%+j%PROCsave 


2920 th%(N%)=0 
2930 FOR I%=0 TO t0t%(N%)-1 
2940 th%(N%)=th%(N%)+FNldot(hand$(N%,I 
%))+FNrdot(hand$(N%,I%)) 

2950 NEXT:NEXT 

2960 IF th%(0)>th%{1) =1 

2970 IF th% <1)>th%(0) =0 ELSE =2 

2980 : 

2990 DEF PROCwin(W%) 

3000 VDU26,12 
3010 LOCALN% 

3020 IF W%=0:ELK%=TRUE:W$= , ’ELK' , 

3030 IF W%=1:ELK%=FALSE:W$=n$ 

3040 IF W%<2 PRINT 1 "The WINNER is ";W$ 


: B %=0 


2490 NEXT:NEXT 
2500 0%=FNvert(hand$(0,D%)) 

2510 IFE%>-1 PROCendno(E%):PROCarrange 
{B%):PROCsetup(E%) 

2520 ENDPROC 

2530 : 

2540 DEFPROCsave:D%=M%:T%=i%+ j%:I%=i%: 
J%=j %:E%=K%:ENDPROC 

2550 : 

2560 DEFPROCsetup(E%) 

2570 LOCALC%,W% 

2580 P%=1:C%=FNcentre:X%=endx%(E%) +C%: 
W%=endx%(E%)+2*C%+8*SGN(C%) 

2590 IFW%<70RW%>1271 endl% (E%) =endl% (E% 
)+SGN(C%):X%=C%-1279*(E%—0):endx%(E%)=W 
%-endx%(E%)-1279*(E%=0)ELSEendx%(E%)=W% 
2600 Y%=1103-endI%(E%)*160 

2610 ENDPROC 
2620 : 

2630 DEFFNcentre=-((O%=0)*70+(0%=TRUE) 
34) * ((E%=0) - (E%=1)) 

2640 : 

2650 DEFPROCsor t(P%,D%) 

2660 LOCALN%,T% 

2670 IFtOt%(P%)<10T%=tot%(P%)-1ELSET%= 

8:hand$(P%,9) 

2680 FORN%=D%TOT% 

2690 hand$(P%,N%)=hand$(P%,N%+1) 

2700 NEXT 

2710 tot%(P%)=tot%(P%)-l 
2720 ENDPROC 

2730 : 

2740 DEFPROCarrange(F%) 

2750 IFF%=0end%(E%)=J%ELSEend%(E%)=1% 
2760 IFF%=E%R%=I%:L%=J%ELSEL%=I%:R%=J% 
2770 ENDPROC 
2780 : 

2790 DEFFNlSt 
2800 LOCALN%,T%,H%,I% 

2810 F0RN%=1T07 

2820 T%=FNtotdot(N%-1):IFT%>H%H%=T%:1% 
=N%-1 

2830 NEXT:=I% 

2840 : 

2850 DEF PROCendno{E%) 

2860 IFE%=-1 ENDPROC ELSE VDU5:QCOL4,0 
:MOVEendx%(E%)+30*(E%=0),111 5-end1%(E%) 
*160:PRINT;E%+1:VDU4 
2870 ENDPROC 
2880 : 

2890 DEF FNwin 

2900 LOCAL N%,I 
2910 FOR N%-0 TO 1 


ELSEPRINT' Game Drawn! 
3050 PRINT 


State of play: 

3060 win%(W%)=win%(W%)+1 
3070 PRINT* *SPC{6);"ELK";SPC{10-LEN(n$ 
)DIV2+LEN(n$)MOD2);n$;SPC(10-LEN(n$)DIV 
2);"Drawn 

3080 FOR N%-0 TO 2 


I 1 11 


It 


If I I 


SPC(2); 


★ 


II 


lllll 


V I 1 1 11 


ELK 


Press any key to continue 


1 1 If 


3120 PRINT 


H 


3130 FOR N%=1 T02:PROCdisphand(N%-1,N% 
):tOt%(N%—1)=0:NEXT 
3140 k=GET 
3150 ENDPROC 
3160 : 

3170 DEFPROCsound 

3180 IF WT SOUNDl,-15,100,4:SOUND!,-15 

f 1 0/6 

3190 IF WT G=INKEY(100} 

3200 IF tOt%(P%)<9 tOt%(P%)—tot%(P%)+1 
3210 ENDPROC 
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UTILITY EDITOR 


by Adrian Calcrafu Paul Otto and T. Burgess 


This excellent 
Basic programmers 
k eywo r d s 

alterations. 


Utility Editor should prove an invaluable aid to 
. It allows you to search a program for 

procedures and functions, and to make global 


strings 


When developing a program much time 
can be wasted scanning the listing to 
locate a specific procedure, function 
or character string 
changed. The program listed with this 
article is a mini Editor, which can be 
loaded into the computer along with 
your development program. It is 

menu-driven, with the following 
options: 

1. List all occurrences of a specific 
string, including Basic Keywords. 

of a 


that needs to be 


2. Change 

specific string to any new 
that is equal in length or shorter 
than the original 

allowing you globally to change 
variable names. 


all 


string 


thus 


string, 


5. To 


exit 


from the Editor and return 
to the development program, 
option 5. 

6. To return to the Editor at any time 

{once you have exited), 
function key 0 (ie press FUNC and 0 
simultaneously. 


3. List the starting line number and 

name of each procedure used. 

4. List the starting line number and 
name of each function used. 

5. Return to the Basic program being 


edited. 


6. Return to the menu. 


ABOUT THE EDITOR 

When you run the Editor you will be 

the 5 
option simply 

other 

are locked out. If you enter 1 
or 2 you will be prompted for a search 
string. Simply key in your string and 

then press Return. Option 2 will also 
prompt you for a replace string which 
you enter in the same way. 


TO SET UP THE EDITOR 

Type in the Editor 
check your version against the original 
listing. Then save a copy to tape under 
the file name "EDITOR". 


and 


offering 


presented with a menu 
options. To choose an 
select the number indicated. All 


entries 


TO USE THE EDITOR 


1. Put the program that you wish to 

edit into memory using: 

<return> 


ti it 


LOAD 


2. Type 


PAGE=&5000 <return> 


As already mentioned, option 1 will 

allow you to search for 
including a keyword. To tell the 
computer that the relevant part of the 

a keyword, it must be 


the pointers in the 
Electron to allow the Editor to be 
resident in your machine at the 
same time 


strings 


the program to be 


string 


edited 


enclosed in 2 slashes (/). eg: 


3. Load and Run the Editor using: 

CHAIN "EDITOR" 

4. Use options 1 to 4 on the menu 

detailed below. 

any time will return you to the 
menu. 


It 


It 


To search for PRINT 

enter /PRINT/ "HELLO" 

To search for REPEAT 

enter /REPEAT/ 

To search for A%=A%+1:NEXTBl 


HELLO 
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enter A%=A%+1:/NEXT/BI 


2. If you attempt to RUN the 
development program, it may well 

the Editor to be 
overwritten. If you need it again 
afterwards, you should load it in 


If the program cannot find the 
keyword specified it will print an 

and continue the 


error 

search with the string exactly as you 
entered it. 


again as described above. 


IF YOU HAVE PROBLEMS 


There are several points to note 


If upon running the Editor you get 
an error message indicating that the 

computer has run out of room (eg. 
DIM 


here: 


will be made for the 


EXACT string which you supply. If 
the program contains: A% =A%+1 {ie 
with a 

and you search for A%=A%+1, it 
will not find it. 

2. The Editor will only allow ONE 
keyword in any given string. 


it probably means that 
your version of the Editor program 

become much longer than the 
original. If you wish to extend the 
Editor by adding further routines, 

load it in at a 


has 


you will need to 


eg &4C00 in place of 


lower address 

&S000. If you have to do this, don't 
forget to alter line 110 to reflect 
the new start address. 


3. The string replace option may 


NOT be used with keywords. 


ERROR MESSAGES 

"Error, try again". This is only 

2 and 

either that you have attempted to 
replace a string by 3 longer string, 
which is not allowed, or that the 
Editor 

edit. 


EDITOR HfMU 


ENTER OPTION..1.2.3,4 OR 3 


issued by option 


1.. 5.RING SEARCH..IHCLsKEVMOSs 

2.. 5.RING REPLACE 

3.. LIST PROCEDURES *. 

4.. LIST FUNCTIONS 

5.. RETURN TO PROGRAM BEING EDITED 
Searching Tor DEFPROC 

•100t init 
•1140 shuffle 

•1380 

•1000 REPL 

• 1120 LIST! (OP 50: 

•1140 LISTP 

• 1190 LISTF 

*1240 PR06SCH(OPX,DISPX> 

•1320 STRT 
•1510 TEST 
•1G10 CHK 
•1700 LOOP 


annot find the program to 


start 


Keyword". 

displayed by option 1 and 
that you have attempted to search for 
a Basic Keyword which has not been 

/PRNT/. If 

a search 
the error 
The search 
for the 


Invalid 


This is 


11 


Searching for D6F PROC 


found in the table 


• v * 


specified 


this 

argument in option 
message will be given, 
will continue, however, 
actual string /PRNT/. 


is 


It 


If you choose options 3 or 4 no 

prompts ar 
for procedures or functions is 
initiated immediately. Having 
displayed the relevant line numbers 
(if there are any to display) the 
Editor will prompt you to 
Return, upon which the menu will be 
redisplayed, ready for your next 

command. To return to your 
development program select option 5. 


required, and the search 


ABOUT THE KEYWORD CONVERSION 

The keyword table replacement 

routine will only be able to locate 
the keywords exactly as they are 

stored in the ROM memory. You will 
find it useful to know that the token 
for INSTR assumes the first bracket, 

and so should 
/INSTR(/. This 
LEFT$, which is 
/LEFTS(/, MID$ which is /MID$(/, 
POINT which is /POINT(/, RIGHTS which 

is /RIGHTS(/, STRINGS which is 
/STRINGS(/ and TAB which is /TAB(/. 


applies 


for 


GENERAL NOT ES 

1. All options put the display in 

paged mode". This prevents the 
located line numbers from being 
displayed, only to scroll off the 
top of the screen. If a full 

is displayed, 

"Shift" will display the next 
screenful. 


for 


II 


The following keywords are stored 
twice in the table, and only the 
first entry 


is accessed by the 
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These are..PAGE, 


for 


PROCLISTT, 


PROCLISTP 


and 


conversion program. 

PTR, TIME, LOMEM, HIMEM. 


PROCLISTF. 


If a search 


a 


The procedures have been combined 

via a 


string 


containing 


a keyword and 
nothing else, the program will be 
searching for a single byte (the 
token). It is possible that this byte 

may occur in a different context 
within the program, eg as part of a 
line number. If this is the case, the 
program will erroneously report a 
line number. This happens in practice 
very rarely, and only on searches for 
strings containing just a keyword and 
nothing else. 


and 


to 


menu. 


create a single more powerful Editor. 


if you decide that you 


However, 

interested say, in only one of the 
procedures, they 


easily 


LIMITATIONS 


Editor 

convenience just below Mode 6 HIMEM. 
Consequently running a development 
program which uses a Mode other than 
6, with the Editor also in memory, 

will overwrite the Editor. This is no 
real problem as it is not 

to run the user program while the 
Editor is in situ, and in 
the Editor is easily reloaded. 


The 


for 


is 


Searching for GOTO followed by a 
line number, eg /GOTO/200,will not 
work. This is because the line 
number after a GOTO, is stored by the 
computer in coded form. 


any case, 


TECHNICAL INFORMATION 


BASIC KEYWORDS 

As you may have heard, when the 

a program in its 

memory, it converts all 

keywords (such as IF, PRINT, SOUND, 

GOTO ...etc) into tokens. What this 

that rather than store all 


10 REM Program UTILED 
20 REM Authors P.OTTO, T.BURGESS, A. 
CALCRAFT 

30 REM Version E0.5 
40 REM ELBUG 

50 REM Program subject to copyright 
60 : 

100 ON ERROR GOTO 1770 
110 *KEY0PAGE=&5000|MRUN|M 
120 page=&E00:REM Type page in lower 


Electron stores 


APRIL 1984 


means 

these, sometimes long, and frequently 
repeated words actually as they are 

it simply stores each of them 
as a 1 byte code (token). 


130 DIM T%1 2,R%12,P%250 
140 MODES 

150 CLS:PRINT TAB(12,1)"ELBUG EDITOR 
TAB (15) 

160 PRINT TAB(5,6)"1..STRING SEARCH.. 
INCL/KEYWDS/ 

170 PRINT TAB(5,8)"2..STRING REPLACE 
180 PRINT TAB(5,1 0)"3..LIST PROCEDURE 


This leads to much more economical 


However, it 
result in a problem for string 

qui te 
PRINT" 


use of storage space. 


it 


i i 


11 


II 


MENU 


simply, 


programs; 
searching for say, 
of time, 
memory as 241, rather than 


II 


II 


a 


representing the letters 


S 


P-R-I-N-T". 


190 PRINT TAB(5,12)"4..LIST FUNCTIONS 


II 


A special feature of this Editor 
is that option 1 will allow you to 
search for any string, INCLUDING a 
keyword, if you wish. This is 
achieved by special procedures which 

use the table at &8071 in the 
Electron's ROM to perform 


200 PRINT TAB(5,14)"5..RETURN TO PROG 
RAM BEING EDITED 

210 PRINT TAB(0,16)"ESCAPE..RETURN TO 
THIS MENU" 

220 PRINT 

230 G$=GET$:IF G$<"1 
:QOTO 230 

240 PRINT G$' 

250 G=VAL(G$):0N G GOTO 260,270,280,2 
90,310 

260 INPUT"SEARCH STRING.."$P%: PROCST 
RT: PROCLISTT($P%):GOTO 300 
270 PROCREPL:GOTO 300 
280 PROCLISTP:GOTO 300 


II 


I I II 


OR G$>"5" VDU 7 


a 


conversion of the keyword in the 


string that you specify. 


PROGRAM DETAILS 

The program is in 
combination of several procedures. We 

most grateful to T. Burgess for 
the first (PROCREPL) and to P. Otto 


a 
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290 PROCLISTF 

300 INPUT "'COMPLETED..PRESS RETURN" $ 
P%: GOTO! 50 

310 PAGE=page:END 
320 : 

1000 DEFPROCREPL 

1010 B%=page+1:Q%=B%:INPUT"SEARCH STRI 

$T%: INPUT"REPLACE STRING. .*’$R% :PR 
THE FOLLOWING LINES ALTERED.. 


1320 DEFPROCSTRT 

1330 A%=P%-1:Q%=P%+LEN($P%):Y%=0 
1340 F0RN%=1 T02 
1350 X%=Y% 

1360 REPEAT:A%=A%+1:UNTIL ?A%=&2F OR A 
%>=Q% 

1370 IF ?A%=&2F Y%=A% 

1380 NEXT 

1390 IF X%=0 OR X%=Y% ENDPROC 
1400 X%=X%+1:B%=Y%-X% 

1410 PROCTEST 

1420 IF F%=&FF PRINT"INVALID KEYWORD": 
ENDPROC 

1430 A%=P%:P%=P%-1 

1440 REPEAT P%=Pl+l : UNTIL ?P%=&2F 

1450 ?P%=F%: Z%=P%+1 
1460 REPEAT P%=P%+1:UNTIL ?P%=&2F 
1470 REPEAT: P%=P%+1:?Z%=?P% :Z%=Z%+1: 
UNTIL P%=Q% 

1480 P%=A%:$P%=MID$($A%,1,Z%-A%) 

1490 ENDPROC 
1500 : 

1510 DEFPROCTEST 

1520 F%-0 
1530 D%-&8071 
1540 REPEAT 

1550 IF ?D%=?X% PROCCHK 

1560 IF F%=0 REPEAT:D%=D%+1:UNTIL ?D%> 

&7F:D%=D%+2 

1570 IF D%>&836B OR ?D%>?X% F%=&FF 
1580 UNTIL F%<>0 
1590 ENDPROC 
1600 : 

1610 DEFPROCCHK 
1620 C%=D% :F%=1 
1630 FOR N%=0 TO B%-1 
1640 IF X%?N% <> ?C% F%=0 

1650 C%=C%+1:NEXT 

1660 IF ?C% < &80 OR C%?1 > &24 AND C% 
?1 <> &43 F%=0 
1670 IF F%=1 F%~?C% 

1680 ENDPROC 
1690 : 

1700 DEFPROCLOOP 

1710 C%=1:FOR J%=I%+1 TO I%+K%: IF ?J% 
=P%?C% C%=C%+1 ELSE J%=K%+I% 

1720 NEXT:IF C%<K% ENDPROC 
1730 FOR J%=I%-1 TO I%-254 STEP-1 


II 


NG 


* # 


t r? 


II I * 


I NT 


: V 


DUl 4 

1020 IF ?(Q%)=&FF OR LEN($R%)>LEN($T%) 
PRINT"Error, try again":VDU15:ENDPROC 
1030 REPEAT:V%=?(B%+2):FOR X%=1 TO V%: 

?(Q%+X%-1)=?(B%+X%-1):NEXT 
1040 REPEAT:IF ?(Q%+2)-4<LEN($T%) LOC= 
0:GOTO1080 
1050 $P% 

2:$P%=$P%+CHR$(?C%):NEXT:LOC=INSTR($P%, 
$T%):IF LOC=0 GOTO 1080 ELSE IF $T%=$R% 
PRINT 256*?(Q%)+?(Q%+1):LOC=0:GOTO1080 
1060 FOR C%=1 TO LEN{$R%):?(Q%+LOC+l+C 
%)=ASC(MID$($R%,C%,1)):NEXT:FOR C%=1 TO 
?(Q%+2)-LOC-LEN($T%)-2:?(Q%+LOC+LEN($R 
%)+C%+1)=?(Q%+LOC+LEN($T%) +C%+1):NEXT 
1070 ?(Q%+2)=?(Q%+2)+LEN($R%)-LEN($T%) 

:PRINT 256*?(Q%)+?(Q%+1) 

1080 UNTIL LOC-0:Q%=Q%+?(Q%+2):B%=B%+V 


IT II 


:FOR CI=Q%+3 TO Q%+?<Q%+2) 


% 


1090 UNTIL {?(B%“1)=&0D AND ?(B%)=&FF) 
OR B%=LOMEM:?(Q%)=&FF 
1100 VDU15:ENDPROC 
1110 : 

1120 DEFPROCLISTT($P%):PROCPROGSCH($P% 
,0):PRINT:ENDPROC 

1130 : 

1140 DEFPROCLISTP 


1150 PRINT"Searching for DEFPROC 
CPROGSCH(CHR$&DD+CHR$&F2,-1) 

1160 PRINT"Searching for DEF PROC 

+CHR$&F2,-1) 


fl 1 


: PRO 


11 l 


: PR 


OCPROGSCH(CHR$&DD+ 

1170 ENDPROC 
1180 : 

1190 DEFPROCLISTF 
1200 PRINT"Searching for DEFFN 
ROGSCH(CHR$&DD+CHR$&A4,-1) 

1210 PRINT"Searching for DEF FN":PROCP 
ROGSCH(CHR$&DD+ 

1220 ENDPROC 
1230 : 

1240 DEFPROCPROGSCH($P%,DISP%) 

1250 K%=LEN($P%):VDU14:A%=@%:@%=8:AST$ 


11 


It I 


:PROCP 


n it 


+CHR$&A4,-1) 


1740 IF ?(J%-3)=13 PRINT AST$;?{J%-1)+ 
?(J%-2)*256,;: J%=I%-254:IF DISP%X%=I%+ 
K%:PRINT 


;:REPEAT:Y%=?X%:PRINT CHR$(Y 
%);:X%=X%+1:UNTIL Y%=13 OR Y%=58 OR Y%= 
61 :PRINT 


II 


It II 


1260 IF DISP%@%=6:AST$ 

1270 I%=page-1 
1280 REPEAT:!%=!%+! :IF?I%=P%?0 PROCLOO 


It* " 


1750 NEXT:ENDPROC 
1760 : 

1770 ON ERROR OFF 
1780 IF ERR=17 RUN 
1790 MODE 6 

1800 REPORT:PRINT" at line ";ERL 
1810 END 


P 


1290 UNTIL ?I%=&0D AND I%?1=&FF:VDUl5: 
PRINT:@%=A% 

1300 ENDPROC 

1310 : 
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LATEST GAMES REVIEWED 



Title : ESCAPE FROM MOONBASE ALPHA 

Supplier: Program Power 
Price : £7.95 
Reviewe r: Alan R.Webster 
Rating : **** 

'Escape from Moonbase Alpha' is a 
three-dimensional adventure game 
loosely based on the television series, 
'Dr.Who'. The adventure takes place in 
a series of linked rooms, each of which 
is represented in a three-dimensional 

form on the screen when you visit it. 
This is an unusual and intriguing 
feature of this game. 


through the levels, the monsters become 
stronger and stronger, but at the same 
time, each bag of gold that you acquire 
also increases your own strength. 

This is a very nice game, with some 

enjoyable graphics, and makes a nice 
relaxing change to the "zap ’em" type 
games. It certainly rates very high in 
the tables for the best Electron 
software. 



The object of the game is to collect 
as many bags of gold as possible, 
whilst fighting off the challenge of 
the various monsters. You start in a 
room on level zero, and to escape you 

have to find 'The Doctor 1 who is down 
on level seven. Tne price of freedom is 

ten bags of gold, so make sure you have 
plenty of gold before finding the 
Doctor. Most rooms have various 
connecting doorways, or stairways, 
leading to other rooms in the game. 



You will sometimes find a 'TARDIS' 
in a room you visit, and if you can 
enter the TARDIS quickly you 
dematerialise and then reappear in a 
quite different room: This may help or 
hinder your progress. As you move 


Titles : BUN FUN, SUPER GOLF, 

TRAFALGAR 

Supplier : SQUIRREL SOFTWARE 
Prices : £6.50, £7.50, £8.00 

Reviewer : Philip Le Grand 
Ratings : *, **, *** 

The three games reviewed here all 
come from a relatively new software 
company called Squirrel Software. The 
first of the three, BUN FUN, has a 
rather uninspiring name, and once 
running on the Electron, turned out to 
be a rather uninspiring game. You are 

in a factory which makes buns, and you 
have been left in charge of placing the 

icing and nuts on top of the buns. Your 
pay at the end of the day depends on 

the number of completed buns you 
produce and the amount of waste you 
create. After playing this game a 
couple of times, I had no desire to 
continue playing it. 

The second game, SUPER GOLF, was an 

improvement over the last, in that 
there was more to think about and was 

enjoyable enough to come back and play 
it again. The choice of colours used in 
the program made it difficult, often 
impossible, to follow the ball 
(although if you are a keen spectator 
of golf on television, you may well be 
accustomed to the fine art of finding 
the ball!}. Up to four players are 
allowed to play this game, and at the 
end of every hole, a score card is 
displayed for each player. The course 
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of the usual eighteen holes 


Title 


CROAKER 
Program Power 

£7.95 

Mike Williams 
**** 


consi 

with the option to miss out any hole. 
It is a pity that this game 

generate sound effects, especially for 
driving off, and that the ball does not 
roll on if it lands on the side of the 


not 


Price 


Reviewer 

Rating 


mountain the program often creates for 
some of the greens. 


Croaker is another version of the 

game also known as Frogger. The game 

is delightfully simple to 

understand. You have to control the 
movement of a frog who has to reach his 
home by crossing a busy five lane 
motorway, and then a polluted river by 
j umping 
backs of 

presentation is extremely good with 
multi-coloured road 

and very realistic logs (rather 
less realistic turtles). 


on to floating logs and the 

turtles. 


v i s ua 1 


The 


vehicles of 


all 


and final game, called 

the 

games from Squirrel Software. The 
object of the game is to sink as many 
of the opposition's ships as possible 
at the Battle of Trafalgar. The 
allows two 

the computer to do battle 
the computer seems to have a remarkable 
aim, especially if it's losing! The 
graphics were clear and well designed, 
with interesting sound effects. The 

ships exploding 
and sinking were particularly striking. 


The third 
TRAFALGAR 


was the best out of all 


game 

or one player and 

Sometimes, 


The journey is initially not too 


hazardous, but the game requires you to 
keep on trying. After the first screen, 
the vehicles 


visual effects of the 


closer together, 
making the journey more dangerous, 
while logs occasionally turn out to be 
well disguised and not very friendly 
crocodiles. Even the placid turtles can 
make life dangerous by diving suddenly, 
to leave you floundering 

polluted river. The program includes an 
optional musical accompaniment which 
you either like or hate. This is a 

first 


In conclusion, BUN FUN was not an 


enjoyable game, and SUPER GOLF did not 
play as 

other similar programs on the market. 

TRAFALGAR 


realistic 


game of golf as 


a 


the 


in 


is the best game so far from 


Squirrel Software, though if they want 
to compete seriously with some of the 
larger software producers, they will 
have to increase the standard of their 


game for the Electron and 


good value at £7.95. 


games software quite considerably. 


4 


* 


4 


4 


★ 


4 


4 


* 


4 


4 


4 


4 


4 ★ 


4 


4 


4 
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USING BBC MICRO PROGRAMS ON AN ELECTRON (Part 2) 


bv David Graham 


This month, David Graham continues his series on converting BBC 
micro programs to run on the Electron, by looking at the differences 
in the use of the SOUND and ENVELOPE commands. 


Sounds are produced on the Electron 
and the BBC micro by using the two 

Their 

implementation on the Electron is more 
limited than on the BBC micro, 

suggested last month. In broad terms 
there is only one noise and one tone 
channel on the Electron (one noise and 
three tone on the Beeb), and amplitudes 
may only take one of two values on the 
Electron 

sixteen selectable sound levels). The 
Electron's ENVELOPE allows only pitch 
to be varied, while the Beeb's gives 
both pitch and amplitude variation. 


selects ENVELOPE. 

P selects the pitch 
D selects the duration 


commands SOUND and ENVELOPE. 


If you 


sound 

routine for the Beeb on your Electron, 
and the program has no 
ENVELOPE, then the result will be as 
follows. 


generating 


run a 


le. on or off (the Beeb has 


1. Any values of amplitude chosen in 
the Beeb SOUND command (from -15 to -1) 
will give full volume on the Electron. 
A zero will give off”on either machine. 
So there is no real problem here. 


Programs on the Beeb with sound 
effects usually need some modification 
before they will work satisfactorily on 
the Electron from an acoustic point of 
view. 

channel on the Electron 


2. If the Beeb uses more than one sound 

channel at the same time, then the 
Electron 

playing the last in the sequence. Thus 
with the following two lines of code: 


will 


lose sounds, simply 


Because there is only 


one tone 
it is not 


usually worth attempting to convert 

programs whose main function is to 
generate music, since the result 
be generally unrewarding. 


100 SOUND 1, 
110 SOUND 2, 


15, 100,100 
10, 50, 10 


will 

But 

otherwise, it us usually possible to 

produce replacement sound effects 
though the generation 

explosion, or gunshot is not possible 
because of the restriction on amplitude 

variation. 


would begin 


the Beeb 


both 


sounds 

simultaneously, and the first, which is 

times longer than the second, would 

On the Electron, 
the second would overwrite the first 


10 


of 


good 


play for 5 seconds. 


a 


before it was played, and you would 
just hear the half second 'blip' 
generated by line 110. If a program 
requires a longer sound in such a case, 
the simple solution is to delete the 
shorter one if it is listed after the 
longer one. If, alternatively, you 
wanted to hear the sounds in 

then you should change the '2' in line 
110 to ’1’. 


In seeking to convert Beeb sounds to 


Electron sounds, it is probably best to 
consider the SOUND and ENVELOPE 
commands separately. We will look at 
the SOUND command first. 


SOUND 


has 


The SOUND command 


four 


parameters, Q, A, P and D. You may like 


3. Unfortunately, it is not possible to 

get the noise channel on the Electron 
to generate sounds simultaneously with 

the tone channel. The result is similar 
to 2 above. The last 


refer briefly to page 116 of the 


to 


User Guide if you are unfamiliar with 
the SOUND call. To produce a sound, try 
typing 


ommand in any 
group is the only one heard. Complex 
sound effects on 


SOUND 1,-15,100,40 


the Beeb will 


thus 


produce various results depending on 
the sequence of commands. Thus on the 
Beeb the following: 


In this case Q=1, A 


15, P=100 and D=40 
Q selects the sound channel number 
A switches th 


sound on or off or 
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100 SOUND 1,-15,100,100 
110 SOUND 0,-15,100,10 


The missing segment of the ENVELOPE 
command (the last 6 parameters in fact) 
simply means 

which use this to vary the volume of 
the sound or to turn it on or off 


that the Beeb 


programs 


would produce a long tone accompanied 
by a short ’blip' of noise at the 
start. On the Electron, you only hear 
the blip. If you reverse the order of 
the commands, there will be no change 
on the Beeb, but on the Electron you 
will near only the long tone. The noise 
will be lost. 


may 


need modifying. 


For example, try the following: 


10 ENVELOPE 2,1,0,0,0,6,3,3,30,-4,0,-5, 
120,80 

20 SOUND 2,2,100,7 


4. Finally, the production of noise 
(opposed to pure tones) on the Electron 
is disrupted by other work which the 
CPU is forced to do (Central Processor 
Unit 

the Electron and the Beeb). This does 


On the Beeb, this gives a note of 
constant pitch which dies away slowly. 
On the Electron, it stays at full 
volume. The same occurs with explosion 
sounds. Try replacing line 20 above 
wi th: 


the 6502 chip at the heart of 


not happen on the Beeb, and can be used 

the Electron. E'or 


to good effect on 


example, try the following: 


20 SOUND 0,2,6,15 


100 SOUND 0,-15,100,100 


On the Beeb, this causes the sound of 
an explosion or gun shot, but on the 
Electron it just sounds like a burst of 


Now add: 


no i se. 


110 FOR A=1 TO 3000:NEXT 


In fact, one can do very little to 
reproduce such an effect, and the best 
approach in this case is probably to 
replace the sound with another of your 
choice, possibly by trial and error. 


and run it again. You will hear that 
the first half of the noise is warbled 
because the effective output frequency 
is drastically cut as the CPU attends 

to this second line of Basic. 


One substitute might be to try to 
use the facility for varying the pitch 
of white noise. As an example of this, 
try the following: 


ENVELOPE 

The only thing that causes a problem 
with the ENVELOPE command is the lack 
of amplitude variation. Contrary to 
what I said last month, the Electron 

16 Envelopes, 
making life a good deal easier than I 
had envisaged. 


10 ENVELOPE 1,3,4,4,10,20,10,127,0,0,0, 

0 , 0,0 

20 SOUND 0,1,100,100 


Next month we shall look at ways of 
getting the maximum speed and 
out of the Electron. Because of the way 
the Electron is designed, compared with 


mentioned under 

when 

used, and the same 
techniques of restoring sounds should 
be used. 


All 


retained 


above 


SOUND 


it is necessary to consider a 


the Beeb, 


variety of time saving techniques if we 
are to achieve comparable speed of 
operation in many cases. 


I UN I S 


HINTS 


HINTS 


HINTS 


HINTS 


TIME DELAY 

A good way to put a time delay in a program is to use the INKEY function. For 
example, X=INKEY(200) will give a two second delay (the number in brackets is the 
time in centiseconds). Note that this delay can be cut short by pressing a key, 

which can be useful when .testing. 
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ELEVATOR MANIA 

by D. J. Pilling 


If you enjoyed the Block Blitz game last month, then you will be 
positively dazzled by 'Elevator Mania 1 , a super fast action game by 
the same author. This is one of the fastest games written in Basic 
that we have seen for a long time and will provide you with hours of 

adrenalin sapping enjoyment in return for the effort of typing it 
into your micro. 


Elevator Mania is a one player game, 
in which you control a man running left 
and right along a vast network of 

corridors, or going up and down in 
bewildering maze of lifts. The object 

of the game is to kill as many 'droids' 
as possible by luring them under the 

mines which hang from the roofs of 
corridors. When this 


move up and down quite automatically, 
you can manually control the lifts 
using 

will 


• * < 


for up and '?' for down. You 

that if the man 


find 


also 


a 


disappears off the screen at one 


side, 


will re-appear on the same level at 


he 


the other 


of the 


droids cannot follow you in this way. 


happens, 

droids are inrnobl ised for a short time 


the 


If you find the game too fast for 
you initially, you can slow it down by 
adding an extra delay line to the 
program. For example: 

2345 TIME=0:REPEAT UNTIL TIME>5 

The larger the value at the end of the 
line 

s1ower the game 


allowing you to run underneath and kill 
them. If you fail to kill the droid, it 
will be released and come chasing after 

. If a second droid 
that has already run 

a mine, both droids will be 


you once 
passes a droid 

into 


the delay and the 


The mines also halt the progress of 
the man for a few seconds 
unfortunately for the droids to catch 
him in most cases. 


This is a quite outstanding game, 
particularly when you consider that it 

and no t mach i ne 


time enough 


is written in 
code. Despite its length, which we have 
kept as reasonable as possible, we are 
sure you will agree with us that this 
is a truly outstanding game. 


After five 

mines will start to be replaced by 
'blue doners'. These have the alarming 
effect of duplicating any droid that 
passes underneath. 


screens of play, 


the 


10 REM PROGRAM ELEVATOR 
20 REM AUTHOR D.J.Pilling 
30 REM VERSION E0.2 
40 RETi ELBUG 

50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

100 ON ERROR GOTO 240 
110 M0DE6:VDU23,1,0; 3; 0; 0; 

120 PROCFP 

130 M0DE5:PROCCHAR 

140 DIM A$ (1) ,B$ (1) ,C$(1) 

150 DIMX%<6),Y%<6),U%(6),L%<6),D%{6) , 

A%(6),B%(6),Z%(6),W%(6),1%(6),P%(6),U$( 
6),D$(6),L$(1),R$(1),M$(1),A%330 
160 PROCS 

170 REPEAT:PROCS? 

180 REPEAT:PROCMA 

190 REPEAT:PROCL:PROCD:PROCM:UNTIL0V% 
200 PROCG 

210 UNTIL ME%=0:PROCNXG 

220 UNTIL FALSE 
230 : 


APRIL 1984 


The game i s 
keyboard with ' Z 
man 


controlled from the 

and 'X' moving the 
left and right. Although the lifts 
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240 ON ERROR OFF 
250 MODE 6:IF ERR=17 END 
260 REPORT:PRINT " at line ";ERL 

270 END 
280 : 

1000 DEFPROCMA 

1010 CLS:CF%=FALSE:VDU23,1,0; 0; 0; 0; 
1020 VDU19,3,6,0,0,0 

1030 PROCRM:PROCG4 
1040 COLOUR2 

1050 F0RI%=3T027STEP4:PRINTTAB(0,1%)ST 
RINGS(20,CHR$240);:NEXT:PRINTTAB(0,31)S 
TRING$(19,CHR$240); 

1060 FORI%=A%TOA i+287STEP21:$I%=STRING 
$ (20,CHR$7)+CHR$0:NEXT 

1070 A%?166=0:COLOUR 1 

1080 F0RI%=1T06:FORJ%“U%(1%) TOL%(1%) 
1090 IF (J%+1)MOD4=0 COLOUR!:PRINTTAB( 
X%(1%)-1,J%)CHR$252LB$CHR$253;:COLOURl 
FLSEPR INTTAB (X% (I %) ,J%)LB$? 

1100 K%=((J%+1)DIV4-1)*21+A%+X%(II) 
1110 ?K%=I%:NEXT:1%(1%)=0 
1120 PRINTTAB(X%(1%),Y%(1%))L$;:NEXT 
1130 COLOUR3 

1140 FORI%=lTOND% 

1150 PROCSA 

1160 ?H%=8:PRINTTAB(J%,K%*4+2)CHR$246; 

1170 A%(1%)-J%:B%(1%)=K%*4+2 
1180 Z%(1%)=A%+K%*21:W%(I%)=0 

1190 NEXT 

1200 FORI%=1TONM%;PROCSM:NEXT 


1320 ENDPROC 

1 330 : 

1340 DEFPROCSM:PROCSA:?H%=9:COLOUR1:PR 
INTTAB{J%,K%*4)CHR$242;:COLOUR3:ENDPROC 
1350 : 

1360 DEFPROCRM 

1370 X%=0:Y%=1:M%=1:Z%=A%:W%=FALSE 
1380 ENDPROC 

1390 : 

1400 DEFPROCGM 

1410 X%(1)=FNRX:U%(1J =3 :L% (1)=U%(1)+4+ 
RND(4)*4 

1420 X%(2)=FNRX:IFX%(2)=X%(1JGOTOl420 

1430 L%(2)=31:U% (2)=L%(1)-RND(2)*4 

1440 F0RI%=3T06 

1450 X%{I%)=FNRX:K%=0 

1460 F0RJ%=1TOI%-1 

1470 IFX%(1%)<>X%(J%)GOTOl490 
1480 IFK%=0K%=J%ELSEK%=”1 

1490 NEXT 

1500 IFK%=0PROCNL:GOTOl550 

1510 IFK%=-1GOTOl450 

1520 U%(I%)=U%(K%)-3:L%(I%)=31-L%(K%) 

1530 IFU%(1%)<12ANDL%(1%)<12G0T01450 
1540 IFU%(1%)<L%(1%)PROCNB ELSE PROCNT 
1550 NEXT 

1560 FORI%=1T06:U$(I%) =MD$ :D$(I%) =MD$ : 
U$(1%)=LU$:D$(1%)=LD$:D%(1%)=RND(2)-1:Y 
%(I%)=(U%(I%)+L%(I%))/2:NEXT 
1570 ENDPROC 
1580 : 

1590 DEFPROCNL 

1600 U%(I%)=-l+RND(5)*4:L%(I%)=U%(I%)+ 
8+4*RND(3):IFL%(I%)>31L%(I%)=31 
1610 ENDPROC 
1620 : 

1630 DEFPROCNT 

1640 U%(I%)=-1+RND(2)*4:L%(I%)=U%(I%)+ 
4 +RND(2)*4 

1650 IFL%(I%)>=U%(K%JGOTOl640 
1660 ENDPROC 

1670 : 

1680 DEFPROCNB 

1690 L%(1%)=35—RND(2)*4:U%{1%)=L%<1%)- 

4-4*RND(2) 

1700 IFU%(1%)<=L%(K%)GOrO!690 

1710 ENDPROC 
1720 : 

1730 DEFFNRX=4*RND{5)-3 
1740 : 

1750 DEFPROCL 
1760 COLOUR! 

1770 F0RI%=1T06 

1780 IFD%(1%)GOTOl810 

1790 PRINTTAB(X%(II),Y%(1%))U$(1%);:Y% 

(1%)=Y%(1%)-2:IFY%(1%)=U%(II)D%(1%)=TOU 


1210 IFNC%=0ENDPROC 

1220 COLOUR3 
1230 FORI1=1TONCI 
1240 PROCSA 

1250 ?H%=10:PRINTTAB(J%,K%*4)CHR$242; 
1260 NEXT 
1270 ENDPROC 
1280 : 

1290 DEFPROCSA 

1300 J%=RND(18):K%=RND(7):H%=A%+J%+K%* 


E 


21 


1800 NEXT:ENDPROC 

1810 PRINTTAB(X%(II),Y%(1%))D$(I%);:Y% 
(1%) =Y% (1%) +2: IFY% (1%) =L% (I %) D% (1%) =FAL 


1 310 IF?H%O70R? (H%—21) O70R? (H%+1) <>7 
OR? (H%-1) O70R? (H%-20) O70R? (H%-22) 07 
GOTOl300 


SE 
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1820 NEXT:ENDPROC 
1830 : 

1840 DEFPROCCHAR 

1850 VDU23,240,255,129,255,129,66,36,2 


2200 A$(0)-CHR$8+CHR$246+LB$ 

2210 A$(1)=CHR$8+CHR$230+LB$ 

2220 B$(0)=LB$+CHR$246 

2230 B$(1)=LB$+CHR$230 

2240 C$(0)=CHR$246:C$(1)=CHR$230 

2250 P$ = A$(0):SS=B$(0):C$=C$(0) 

2260 DU$=LB$+EG$+LB$+EE$+L$+EE$+W$+CHR 
$246+R$ 

2270 DD$=LB$+W$+EE$+LB$+ET$+CHR$10+CHR 
$246+ET$+R$+L$ 

2280 CH$=R$+CHR$42+Y$+CHR$42+W$+CHR$42 

2290 CV$=Y$+CHR$42+ETT$+R$+CHRS42+ET$+W 
$4CHR$42+ET$ 

2300 ?A%=0:A%=A%+1 
2310 HSC%=0:N$= u JOE ZERO" 

2320 ENDPROC 

2330 : 

2340 DEFPROCM 

2353 IFW%GOTO2440 
2360 IFM% M%=0ELSEM%=1 
2370 P%=Z%+X%:IF?P%>7PROCE2:ENDPROC 
2380 IFINKEY-67GOTO2400ELSEIFINKEY-98G 
OTO2420 

2390 PRINTTAB(X%,Y%)M$(M%):ENDPROC 
2400 IFP%?1>6PRINTTAB(X%,Y%)R$(M%):X%= 

X%+1ELSEL%=P%?1:PROCEN 
2410 ENDPROC 

2420 IFP%?-1>6PRINTTAB(X%,Y%)L$(M%):X% 
=X%-1ELSEL%=P%?-1:PROCEN 
2430 ENDPROC 
2440 IFW%<0GOTO251 0 
2450 IFINKEY-67 TX%=1:PROCEX:ENDPROC 
2460 IFINKEY-98 TX%=-1:PROCEX:ENDPROC 
2470 Y%=Y%(L%) 

2480 IFINKEY-73D%(L%)=0 ELSEIFINKEY-10 
5D%(L%)=1 ELSEENDPROC 
2490 IFY%(L%)=U%(L%)D%(L%)=TRUE ELSEIF 
Y%(L%) =L% (L%)D%(L%)=FALSE 
2500 ENDPROC 

2510 W%=W%+1:IFW%=0;PROCSM 
2520 ENDPROC 

2530 : 

2540 DEFPROCEN 
2550 IFL%=0GOTO2620 

2560 IFYI(L%)<>Y%+20RI%(L%)PRINTTAB(X% 
,Y%)M$(M%):ENDPROC 

2570 SOUND1,1,100,2:PRINTTAB(X%,Y%)B$ 
2580 U$(L%)=MU$:D$(L%)=MD$:X%=X%(L%) 

2590 PRINTTAB(X%,Y%)M$(M%) 

2600 W%=1:1%(L%)=9 
2610 ENDPROC 

2620 IFX%=3PRINTTAB(0,Y%)B$:X%=1 9+(Y%= 
29):PRINTTAB(X%,Y%)M$(M%):ENDPROC 
2630 IFX%>17 PRINTTAB(X%,Y%)B$:X%=0:PR 
INTTAB(X%,Y%)M$(M%):ENDPROC 
2640 PRINTTAB{X%,Y%)M$(M%) 

2650 ENDPROC 
2660 : 

2670 DEFPROCEX 

2680 IF (Y% (L%) +1) MOD4^ELSEENDPROC 
2690 SOUND1,1,200,2 


1860 VDU23,241,255,255,255,0,0,0,0,0 

1870 VDU23,242,255,255,60,24,24,90,66, 


66 


1880 VDU23,243,60,90,126,60,36, 126,255 


,189 


1890 VDU23,244,189,189,60, 36,36,36,100 


f 6 


1900 VDU23,245,189,189,60,36,36,36,38, 


96 


1910 VDU23,246,195,66,126,219,219,126, 

66,195 

1920 VDU23,247,66,66,231 ,66,66,231 ,66, 


66 


1930 VDU23,248,204,51,204,51,204,51 ,20 


4,51 


1940 VDU23,252,255,255,255,224,224,224 

,224,224 

1950 VDU23,253,255,255,255,7,7,7,7,7 
1960 VDU23,224,28,48,62,20,28,60,126,1 


89 


1970 VDU23,225,189,60,24,24,56,104,200 


76 


1980 VDU23,226,189,60,24,24,28,23,18,2 


4 


1993 VDU23,227,189,60,24,24,28,23,18,4 


8 


2000 VDU23,228,189,60,24,24,56,1 04,200 


,88 


2010 VDU23,229,28,6,62,20,28,60,126,18 


9 


2020 VDU23,230,102,66,126,219,219,126, 

66,102 

2030 ENVELOPE!,1,6,0,-6,200,100,200,10 

0 , 2 , 0 ,- 1 , 120,110 

2040 ENDPROC 

2050 : 

2060 DEFPROCS 

2070 TE$CHR$10+CHR$8+CHR$8 

2080 ET$=CHR$8+CHR$10:EE$=CHR$8+CHR$11 

2090 EG$=CHR$11+CHR$8:R$=CHR$1?4CHR$1 
2100 Y$ =CHR$ 17+CHR$ 2: W$ CHR$ 17+CHR$ 3 
2110 B$=CHR$32+CHR$10+CHR$8+CHR$32 
2120 L$=CHR$241:LB$=CHR$32 
2130 LU$=LB$+CHR$11 +EG$+L$ 

2140 LD$“LB$+CHR$10+CHR510+CHR$8+L$ 

2150 MU$=LB$+EG$+LB$+EE$+L$+EE$+R$+CHR 
$244+Y$+EE$+CHR$243+R$ 

2160 MD$=LB$+Y$+EE$+CHR$11+LB$+ET$+LB$ 
+ET$+CHR$243+ET$+R$+CHR$244+ET$+R$+L$ 

21 70 TP$=Y$+CHR$8+CHR$229+LB$+TE$+R$:L 
$(0)=TP$+CHR$227+LB$:L$(1)=TP$4CHR$228+ 


LB$ 


21 80 TP$=Y$+U3$-K:HR$22 4+TE$+LB$+R$: R$ { 
0) =TP$4CHR$225:R$ (1) =TP$-K:HR$226 
2190 TP$=Y$+CHR$243+CHR$1 0+CHR$8+R$:M$ 
(0) =TP$+CHR$244 :M$ (1) =TPS*K:HR$245 
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2700 U$(L%)=LUS:D$(L%)=LD$:W%=FALSE 
2710 1%(L%)“0 

2720 Y%=Y%(L%)-2:Z%=((Y%(L%)+1)DIV4-1) 
*21+A% 

2730 PRINTTAB(X%,Y%) B$: X%= : X%+TX% 

2740 PRINTTAB(X%,Y%)M$(M%):ENDPROC 
2750 : 

2760 DEFPROCD 

2770 IFE% E%=0ELSEE%=1 

2780 P$=A$ (E%) :S$=B$(?:%) :C$=C$(E%) 

2790 COLOUR3 
2800 F0RD%=1TO5 

2810 IFD%>ND%:PROCDT(0):NEXT:ENDPROC 
2820 IFW%(D%)GOTO2900 
2330 U%-A%(D%):V%=Z%<D%) +U% :S%=B%(D%) 
2840 IFS%=Y%+1P% (D%) =U%<X%: IFU%=X%NEXT 
:ENDPROC 

2850 IFP%(D%)GOTO2880 
2860 IFV%?-1>6ELSET%=V%?“1:PROCDE:NEXT 
:ENDPROC 

2870 ?V%=7:PRINTTAB{U%,S%)P$:A%(D%)=U% 
-1:IFV%?-1<9V%?-1=8:NEXT:ENDPROC ELSEPR 
OCE1M:NEXT:ENDPROC 

2883 IFV%?1 >6ELSET%=V%?1:PROCDE:NEXT:E 
ND PROC 

2890 ?V%=7:PRINTTAB(U%,S%)S$:A%(D%)=U% 
+1:IFV%?1<9 V%?1=8:NEXT:ENDPROC ELSEPROC 
ElP:NEXT:ENDPROC 
2900 IFW%(D%)<0GOTO2980 
2910 R%=Y%-Y%(W%(D%))+2 

2920 IFR%=0PROCDX:NEXT:ENDPROC 

2930 IFR%<0GOTO2960 

2940 IFNOTD^(W%(D%))PROCDX 

2950 NEXT:ENDPROC 

2960 IFD%(W%(D%))PROCDX 

2970 NEXT:ENDPROC 

2980 W%(D%)=W%(D%)+1 

2990 IFW%(D%)=0 PROCRE:SOUND3,1,200,10 

3000 NEXT:ENDPROC 

3010 : 

3020 DEFPROCDE 

3030 IFS%=Y%(T%)-1ELSEIFT%=0P%(D%)=NOT 

P%(D%):ENDPROC ELSEPRINTTAB(U%,S%)C$:EN 

DPROC 

3040 IFS%+1=U%(T%)0RS%+1=L%(T%)GOTO309 


3180 IF (Y%(W%(D%))+1)MOD4 =0ELSEENDPROC 

3190 SOUND1,3,200,2 

3200 T%=W%(D%):W%(D%)=0:1%(T%)=0 

3210 U$(T%)=LU$:D${T%)=LD$:B%(D%)=Y%(T 


%)-l 


3220 PRINTTAB(A%(D%),B%(DI))LB$ 

3230 IFY%=B%(D%)-1 P%(D%)=A%(D%)<X% 
3240 IFP%(D%) A%(D%)=A%(D%)+1ELSEA%(D% 


) =A% (D%) -1 


3250 PRINTTAB(A!(D%),B%(D%))C$(E%) 

3260 Z%(D%)=((Y%(T%)+1)DIV4-1)*21+A%:? 
(Z%(D%)+A%(D%))=3 

3270 ENDPROC 
3280 : 

3290 DEFPROCE1M 

3300 U%=U%-1:V%=V%-1:GOTO3340 

3310 : 

3320 DEFPROCElP 
3330 U%=U%+1:V%=V%+1 
3340 IF?V%=10CF%=TRUE 
3350 IF?V%>10 EX%=D%:D%=?V%-10:SOUND!, 
1,200,10;PROCRE:D%=EX%:A%(D%)=A%(D%)+1: 
?V%-8:ENDPROC 

3360 ?V%=10+D%:SOUND!,1,200,10:SOUND!, 
1,200,10:SOUND2,2,200,30 
3370 FOREX%=1T036:COLOUREX%MOD4 
3380 PRINTTAB(U%/B%(D%));:VDU246,8,11 , 
247,8,11,242 
3390 NEXT 

3400 IFCFIPROCCL:ENDPROC 
3410 COLOUR2:PRINTTAB(U%,B%{D%)-2)CHR$ 
246:COLOUR3:W%(D%) 

3420 ENDPROC 
3430 : 

3440 DEFPROCEA:IFD%=ND%GOTO3460ELSEA%( 
D%) =A% (ND%) :B% (D%) =B% (ND%) :W% (D%) =W% (ND 
%):Z%(D%)=Z%(ND%) 

3450 IFW%(ND%)<0 ?{Z%(ND%)+A%(ND%))=1 0 
+D% 

3460 ND%=ND%-1:D%=9:DD%=DD%+1:IFND%=0O 
V%=TRUE 

3470 ENDPROC 
3480 : 

3490 DEFPROCRE:PRINTTAB(A%(D%),B%(D%)- 

2)LB$;:VDU8,10,10,246:W%(D%)=0:PROCSM:E 
NDPROC 

3500 : 

3510 DEFPROCER:D%=?P%-10:? ?% “7:COLOUR! 
:PRINTTAB(A%(D%),B%(D%)-2)CHR$246:COLOU 
R3:PROCEA:SOUND0,1,6,20:ENDPROC 
3520 : 

3530 DEFPROCE2 
3540 IF?P%>10PROCER:ENDPROC 
3550 IF?P%>8W%=-20:?P%=7:PRINTTAB(X%,Y 
%-l)LB$:SOUNDl,1,200,20:ENDPROC 

3560 SOUNDl,!,200,20:PROCDT(25) 

3570 PRINTTAB(X%,Y%)CHR$248:PRINTTAB(X 

%,Y%+l)CHR$248:PROCDT(35):PRINTTAB(X%,Y 
%)B$ 

3580 ME%=ME%-1 :DI3%=DD%+1 :OV%=TRUE 


50 


0 


3050 IFY%<-S%GOTO3080 
3060 IFNOTD%(T%)ENDPROC 
3070 GOTO3090 
3080 IFD%(T%)ENDPROC 
3090 IFI%(T%)ENDPROC 

3100 ?V%=7 

3110 SOUNDl,1,100,2:PRINTTAB(U%,S%)LB$ 
31 20 U$ (T%) =DU$:D$ (T%) =1)0$: A% (D%) =X% (T 


%) 


3130 PRINTTAB(A%(D%),S%)C$ 
3140 W%(D%)=T%:I%(T%)=D% 
3150 ENDPROC 
3160 : 

3170 DEFPROCDX 
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3590 ENDPROC 
3600 : 

3610 DEFPROCDT(1%):T=TIME:REPEATUNTILT 
IME>T+I%:ENDPROC 
3620 : 

3630 DEEPROCG 

3640 CLS:SC%=SC%+250+200*DD% 

3650 IFSC%DIV2000OBC% ME%=ME%+1 
3660 IEME%=0ENDPROC 
3670 VDU19,3,2,0,0,0 

3680 PRINTTAB(1,1)STRINGS(6,CH$)TAB(0, 
1)STRING$(10,CV$)TAB(19,1)STRINGS(10,CV 
$)TAB(0,30)Y$+CHR$42+STRING$(6,CH$)tY$+ 
CHR$42; 

3690 PRINTTAB (5,2) Y$+"ELEVASION"TAB(4, 
4)"SCORE BOARD"TAB(4,6)"FOR SHEET ";G%; 
TAB(1,7)STRINGS(6,CH$); 

3700 PRINTTAB(2,9)"YOUR SCORE ";SC% 
3710 PRINTTAB(2,11)"HIGH SCORE "?HSC% 
3720 PRINTTAB{2,14)R$"DROIDS DESTROYED 


3940 ENDPROC 
3950 : 

3960 DEFPROOCL 

3970 CF%=FALSE:SOUND!,1,200,20 
3980 IFND%=SENDPROC 
3990 ND%=ND%+1:PROCSM 

4000 A%(ND%)=A%(D%)+1:BI(ND%)=B%(D%):Z 
%(ND%)=Z%(D%):W%(ND%)=0 
4010 ENDPROC 
4020 : 

4030 DEFPROCNXG 
4040 CLS:VDU19,3,2,0,0,0 
4050 PRINTTAB(1,1)STRING$(6,CHS)TAB(0, 
1)STRING$(10, CVS)TAB(19,1)STRING${10,CV 
$)TAB(0,30)Y$+CHR$42+STRING$(6,CHS)+YS+ 
CHR$42; 

4060 PRINTTAB(5,2)Y$+"ELEVASION"TAB(4, 
4)"GAME OVER";TAB(1,5)STRINGS(6,CH$); 

4070 PRINTTAB(3,7)"THE HISCORE WAS"TAB 
(8,9);HSC% TAB(3,11)"BY "N$ 

4080 PRINTTAB(3,14)Y$"YOUR SCORE WAS " 
TAB(8,16);SC% 

4090 IFSC%<-HSC% GOTO4200 


3730 X%=DD%:IFX%>8 X%=8 
3740 PRINTTAB(2,16)STRINGS(X%,CHR$246+ 
CHRS9) 

3750 PRINTTAB(2,20)Y$"MEN LEFT" 

3760 X%=ME%:IFX%>8 X%=8 
3770 PRINTTAB(2,22)STRINGS(X%,MS(0)+CH 
R$11+CHRS9); 

3780 X%=1 

3790 IFSC%DIV2000OBC%ANDX%=1 PRINTTAB ( 
2,25)Y$"BONUS MAN" ELSEPRINTTAB(2,25)SP 

C(10) 

3800 PRINTTAB(1,28)R$"RETURN TO CONTIN 


4100 PRINTTAB(3,18) "THE NEW HISCORE" 
4110 PRINTTAB(3,21)R$"ENTER YOUR NAME 
4120 *FX21,0 
4130 PRINTTAB(3,23) 

:REPEAT IK=GET 


>"Y$; 


4140 N$ 

4150 IFIK=1 3G0T04180 

41 60 IFIK=1 27ANDLENNSO0PRINTCHRSIK; :N 
$=LEFT$(N$,LENNS-l):GOTO4180 ELSEIFIK=1 
27 G0T04180 

4170 N$=N$4CHR$IK:PRINTCHR$IK; 

4180 UNTIL IK=130R LENN$=12 
4190 HSC%=SC% 

4200 PRINTTAB(4,26)R$"PRESS RETURN"TAB 

(2,28)"FOR ANOTHER GAME"PROCOT(100):R 
EPEAT UNTILINKEY-74 


II If 


UE 


3810 IFINKEY-74GOTO3830 

3820 IFTIME MODI 5=0 X%=X%EORl:GOTO3790 

ELSEG0T03810 

3830 VDU19,3,6,0,0,0:OV%=FALSE 
3840 G%=G%+1:DD%=0:BC%=SC%DIV2000 
3850 IFG%<=5GOTO3890 
3860 ND%=G%~5:IFND%>5ND%=5 
3870 NC%=G%-5:IFNC%>8NC%=8 
3880 NM%=2+ND%:ENDPROC 
3890 ND%=G%:NM%=2+ND% 

3900 ENDPROC 
3910 : 

3920 DEFPROCST 

3930 G%=1:ND%=1:NM%=3:NC%=0:DD%=0:ME%= 
3:OV%=FALSE:SC%=0:BC%=0 


4210 ENDPROC 
4220 : 

4230 DEFPROCFP 

4240 CLS:PRINTTAB(13,3)"ELEVASION" 

4250 PRINTTAB(16,12);"by" 

4260 PRINTTAB(12,14)"D.J.Pilling " 

4270 PRINTTAB(6,20)"Press any key to s 

tart." 

4280 G=GET:CLS 
4290 ENID PROC 


HINTS 


HINTS 


HINTS 


HINTS 


HINTS 


Peter Corlett 


FREEZING A PROGRAM IN BASIC 


To make a Basic program stop when 'F 
IF INKEYS(0)=70 REPEAT UNTIL G£T$="F" 

This line must be inserted in the main program loop and will cause 
halt when 'F* is pressed. The program will continue when 'F' 
should be inserted as a line in the middle of the main loop of the game. 


the program to 
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ms jci.Tiv 


is much nor--* exciting than 


4 l 


moving arcade gome, 
game 

screen. 


he purpose o: 

is to direct the snake around the 


arvi 


the 


many . fares 

O Pk't* 


nature, 


i 


sini * ar 


1 1 


?'* **y« 


1 C t ^ i* 

i ^ 1 11 .4 l y 


su r p r 


*, 


r a nd om 1 y p 1 aceJ 

objects. With every mte that it takes, 
the tail grows longer and tne snake 
moves faster. Just to complicate 

there are also certain 
obstacles wnich must 


eating up the 


' ■ ipuisive. 




tnings, 

scattered 

avoided. 




even complete the first screen 
requires skill and concentration. 
Pu r t he r t r ames use different sha f>ad 
playing areas, which as well as adding 
variety, require much greater skill to 
complete. 


To 


packing. 


costs £4.00 inc VAT. 
Overseas orders: 


Please add 5Op post 




VAT not -barged. 


post & packing 
Send order with membership number to: 

High Wycombe, Bucks 


£5.SO inc 


Box 109 




, P.0. 


BEEBUGSOr 


i 




fHE BEST OF ELBUG 


the best programs published in ELBUG have been collected together and 

Games and other programs for the Acorn 
at £3.95. This book is part of the Penguin Acorn Computer Library and at 
present there is just one other title available though others are planned. 


Many of 

published by Penguin Books under the name 
Electron 


If 


11 


There are 20 programs in all in four different categories: 

Games 

for the* Acorn 


Action Games 


Mars Lander Invasion 
Hedgehog 


Munch-Man 

Robot Attack 


ELECTRON 


Thought games 

Higher/Lower 

Anagrams 


Li fe 


Five-Dice 

Return of the Diamond 


Visual Displays 

Union Jack 
Screenplay 


Square Dance Ellipto 
3-D Rotation 


Utilities 


Bad Program Lister 


Sound Wizard 
3-D Lettering Bad Program Rescue 
Double Height Text 


PI *¥j»i MiMM r O HHJTlW I WMMf 

A * 

\ •# W 




from our software address {in High 
£9 to non-members, plus 50p post & packing in 


All 20 programs are now available on 
Wycombe) price £7 to members and 


either case. 
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BACK ISSUES AND SUBSCRIPTIONS 


SUBSCRIPTIONS 


BACK ISSUES (Members only) 


Send all applications for membership, 

subscription 


All back issues will be kept in print 
(from November 1983). Send 90p 

PLUS an A5 SAE to the 
subscriptions address. Back copies of 
BEEBUG are available to ELBUG members 
at this same price. This offer is for 

members only, so it is ESSENTIAL to 
quote your membership number with your 
order. Please note that the advertising 
supplements are not supplied with back 


to the 


queries 


subscriptions address. 


MEMBERSHIP COSTS: 


U.K. 

£5.90 for 6 months (5 issues) 
£9.90 for 1 year 

Eire and Europe 

Membership £16 for one year. 

Middle East £19 

Americas and Africa £21 

Elsewhere £23 


Subscription and Software Address 


Payments in Sterling preferred. 


SOFTWARE (Members only) 


ELBUG 
PO BOX 109 
High Wycombe 

Bucks 


This is available from the software 


MAGAZINE CONTRIBUTIONS 
AND TECHNICAL QUERIES 


send all contributions and 


Editorial Address 


to the editorial 
opposite. All contributions 
published in the magazine will be paid 


technical 


querles 


ELBUG 

PO Box 50 

St Albans 
Herts 


for at the rate of £25 per page. 


We will also pay £10 for the best Hint 

or Tip that we publish, and £5 to the 

send all editorial 
the editorial 


material 

opposite. 


address 


to 




If you require a reply it is 

membership 


to quote your 
number and enclose an SAE. 
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Editor: Mike Williams. 
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